ワークシート上の図形を、画像で塗りつぶす方法

エクセルVBA VBA



ワークシート上に貼りつけた図形を、写真などの画像で塗りつぶす方法について紹介します。

上図のように「ひし形3」に東京タワーの写真で塗りつぶすこともできます。

そのVBAは、以下のとおりになります。

Sub 図形塗りつぶし()

 ActiveSheet.Shapes("ひし形 3").Fill.UserPicture "C:\Users\diren\Desktop\東京タワー.jpg"

End Sub

上のVBAは、図形「ひし形3」について「Fill.UserPicture “画像ファイル”」で塗りつぶしています。
“画像ファイル”のところには、画像のアドレスとファイル名が入ります。

ちなみに、画像ファイルの大きさは、図形の大きさに合わせて自動的に調整されます。
したがって、読み込む画像ファイルの大きさを気にすることはありません。

画像ファイルの保存場所については、VBAの記載例のように画像ファイルの保存場所を指定していますので、どこに保存しても参照することができます(やや蛇足の説明ですが。。。)。

コメント

タイトルとURLをコピーしました