Excel（エクセル）で住所などの漢数字を力づくでアラビア数字（算用数字）に変換する方法

JavaScriptで要素の背景色を変更する方法/style.backgroundColorの使い方

CSSで画面をレスポンシブに画面幅によって表示を切り替える方法/@media（メディアクエリ）の使い方

Playground AIの使い方

Power Automate Desktopでフォルダーを新規作成する方法

Excel VBA（マクロ）で図形を画像で塗りつぶす方法/UserPictureメソッドの使い方

Power Automate DesktopでPC、ワークステーションをロックする方法

Unityで着地している時だけジャンプができるようにする方法/OnTriggerEnter2D、OnTriggerExit2Dメソッドの使い方

仮想通貨用語：AMAとは

Excel（エクセル）：行、列

Unityのイベントトリガー（Drag）でドラッグ中にイベントを起こす方法

CSSでテキストの下線（アンダーライン）を表示する・消す方法/text-decorationプロパティの使い方とサンプル

Power Automate Desktopでリストを空にする方法/「リストのクリア」の使い方

Unity C＃変数の宣言と型、ローカルとグローバル

漢字を含めた並び替えでルビを含めて・外して並び替える方法/並べ替えとフィルターの使い方（並べ替えオプション）

Excelの重なったフォームコントロールの上下関係を変更する、前面・背面に移動する方法

HTMLに音楽再生プレイヤーを埋め込む方法/audioタグの使い方

Unity C#で接触する複数のコライダーの中から条件に合うものだけ処理を実行する方法

Excel VBA（マクロ）で図形を画像で塗りつぶす方法/UserPictureメソッドの使い方

IT

2021.12.30

ForeColorの代わりにUserPictureメソッドを用いることで、画像で図形を塗りつぶすことができます。

UserPictureメソッドの使い方

図形を画像で塗りつぶす
Shapeオブジェクト（またはShapeRangeコレクション）.Fill.UserPicture (PictureFile)

userpicture1

この図形に画像を適用したいと思います。

' vba
ActiveSheet.Shapes(1).Fill.UserPicture

図形を取得し、UserPictureメソッドを記述して、その後に画像のパスを記述するわけですが、

userpicture2

場所から記述しないといけないので、画像のプロパティなどからコピペし、

' vba
ActiveSheet.Shapes(1).Fill.UserPicture "C:\Users\User\Desktop\cellular.jpg"

最後にファイル名を付けて、全体を""で閉じます。

userpicture3

実行すると、図形が指定した画像で塗りつぶされます。

' vba
ActiveSheet.Shapes.Range(Array(1, 2)).Fill.UserPicture "C:\Users\User\Desktop\cellular.jpg"

複数図形に同時に画像を割り当てたい場合は、ShapeRangeコレクションを使用します。詳しくは図形の取得の記事参照。

Excel（エクセル）：図形

Excelでは、図形という機能を使うことで四角形や丸、矢印などのオブジェクトをシート状に配置することができます。セルの形状を無視して配置できるので、フローチャートや装飾、注釈などアイデア次第でさまざまな用途に利用できます。図形作成・操作...

関数・演算子・メソッド・プロパティ名から探すExcel/VBA（マクロ）使い方・組み合わせ方まとめ

こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。

やりたいことから方法を探すエクセル（Excel）操作・関数・VBA（マクロ）逆引きまとめ

逆引き（やりたいことから探す）Excel記事まとめ

コメント