ここから本文です

マクロでの画像貼付けについて エクセル2010で下記コードのマクロを使用して画...

mj0********さん

2015/9/2300:08:09

マクロでの画像貼付けについて

エクセル2010で下記コードのマクロを使用して画像を貼り付けた場合、リンクオブジェクトでの貼付けになってしまいます。

図として挿入するにはPictures.Insert メソッドではなく、Shapes.Add メソッドを使用しなければならないということは分かりましたがコードをどのように修正すればよいかが分かりません。
もし分かる方がいらっしゃいましたら下記のコードをShapes.Add メソッドに修正していただけないでしょうか。
よろしくお願い致します。


Range("D9").Select
ActiveSheet.Pictures.Insert("C:\1.jpg").Select
Selection.ShapeRange.PictureFormat.Brightness = 0.4
Selection.ShapeRange.PictureFormat.Contrast = 0.75
Selection.ShapeRange.Height = 142
Selection.ShapeRange.Width = 188

閲覧数:
80
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

vcx********さん

2015/9/2301:49:06

mj02h21さん

下記でどうでしょう?

Sub Test()
Dim sh As Shape, r As Range

With ActiveSheet
Set r = .Range("D9")
Set sh = ActiveSheet.Shapes.AddPicture _
("D:\1.jpg", False, True, r.Left, r.Top, 188, 142)
sh.PictureFormat.Brightness = 0.4
sh.PictureFormat.Contrast = 0.75
End With

End Sub

質問した人からのコメント

2015/9/26 14:51:22

教えて頂いたコードを実行したところ画像を図として挿入することができました。
ありがとうございました。

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる