Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8496 / 76732 ←次へ | 前へ→

【73806】Re:写真挿入のVBA
発言  kanabun  - 13/2/16(土) 20:53 -

引用なし
パスワード
   ▼wen さん:こんにちは〜

>返信どうもありがとうございます、試してみましたが、リンクではなく貼りこみができました!!
>ただ、貼り込まれた写真がどうもサイズがうまくいきません。
>いったん切り取って、貼り付けにすると、サイズ指定の命令がうまく効かなくなるといったことはありますか?

>'画像を挿入
>  With ActiveSheet.Pictures.Insert(PicFile)
>    rX = Target.Width / .Width
>    rY = Target.Height / .Height
>    If rX > rY Then
>      ratio = rY
>    Else
>      ratio = rX
>    End If
>    .Width = .Width * ratio
>    .Height = .Height * ratio

は、当初のコードとは変えています。

当初のコードは
>  '画像を挿入
>  With ActiveSheet.Pictures.Insert(PicFile)
>    rX = Target.Width / .Width
>    rY = Target.Height / .Height
>    If rX > rY Then
>      .Height = .Height * rY
>    Else
>      .Width = .Width * rX
>    End If
でした。これは、rX と rY の値によって、
高さ方向か 横幅方向か、どちらか一方だけをサイズ変更しています。

ちょっと手持ちのデジカメ画像で試したところ、
高さ方向で セルの高さに縮小され、 横幅は元の画像のまま、の
「思いっきりひしゃげた」画像が挿入されてしまいましたので、
上のように、
高さ方向も横幅方向も「同じ比率でサイズ縮小する」コードに変えました。

wen さんのほうで、その部分はうまくいっていたのなら、そこは元通りに
直してみてください。

1,831 hits

【73797】写真挿入のVBA wen 13/2/15(金) 23:03 質問
【73799】Re:写真挿入のVBA UO3 13/2/16(土) 5:21 発言
【73803】Re:写真挿入のVBA wen 13/2/16(土) 18:53 お礼
【73800】Re:写真挿入のVBA kanabun 13/2/16(土) 9:12 発言
【73801】Re:写真挿入のVBA kanabun 13/2/16(土) 9:14 発言
【73804】Re:写真挿入のVBA wen 13/2/16(土) 19:10 質問
【73806】Re:写真挿入のVBA kanabun 13/2/16(土) 20:53 発言
【73808】Re:写真挿入のVBA kanabun 13/2/17(日) 9:38 発言
【73834】Re:写真挿入のVBA wen 13/2/18(月) 18:16 質問
【73835】Re:写真挿入のVBA kanabun 13/2/18(月) 18:45 発言
【73836】Re:写真挿入のVBA kanabun 13/2/18(月) 20:07 発言

8496 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free