JavaScriptで配列の数値を全て合計する、平均値を求める方法

ComicStudio（コミスタ）で効果線（集中線）をかける方法/集中線ツールの使い方

JavaScriptをConsole上で実行し、ログを表示する方法/Console.logの使い方

CSSで要素を左右中央にレイアウトする方法/text-align、margin:0 auto;の使い方

Excel（エクセル）で年,月,日から日付を求める方法/Date関数の使い方

Excel（エクセル）で出来合いのスタイルを適用して表の見た目を変える方法/「セルのスタイル」の使い方

Excelのプルダウンの作り方・解除の仕方/データの入力規則（リスト）の使い方

Bardeenの使い方

Excel（エクセル）で対象セルが空白かどうかで分岐する方法/IsBlank関数の使い方

Chat GPT Plusで画像生成する方法/DALL-E3の使い方

ExcelVBA（マクロ）で指定した回数同じ処理を繰り返す方法/For next文の使い方

Power Automate Desktopで処理を指定秒数待機させる方法/Waitの使い方

Wixでサイトの編集画面に移動、編集を保存する方法（ADI、エディタ）

Power Automate Desktopの「JSONをカスタムオブジェクトに変換」の使い方

Unity C#で一定時間処理を待機させる方法/yield return new WaitForSecondsの使い方

Excel VBA（マクロ）でブックの保存前にイベントプロシージャを実行する方法/BeforeSaveの使い方

Unityで自動的にアニメーションするオブジェクトを作る方法/Animationの使い方

ExcelVBA(マクロ)でワークシートの目次を作る方法/HyperLinks.addメソッドの使い方

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記事まとめ

コメント