| |
▼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 さんのほうで、その部分はうまくいっていたのなら、そこは元通りに
直してみてください。
|
|
kanabun
- 13/2/16(土) 20:53 -
