Excel（エクセル）で空白セルを一括削除する方法/フィルタ（空白のセル）の使い方他

Unityで条件分岐する方法/If、Switch文の使い方

Illustrator（イラレ）で複数のパーツからなるオブジェクトをひとつにまとめる方法/グループ化の使い方

UnityでBGMを鳴らす方法/AudioSourceコンポーネントの使い方

Excel VBA（マクロ）で待機する方法/Sleep関数（Windows API）の使い方、使えない時の対処法

Unityで土台を作り、上から落ちてくるオブジェクトを受け止める方法

Excel画面左上にボタンを追加する・削除する方法/クイックアクセスツールバーの使い方

Excel（エクセル）で偶数・奇数・倍数を自動入力する方法/オートフィルの使い方

Velo by Wixのcollapsedプロパティ、collapse関数、expand関数の使い方

Excelで関数を使って数値が閾（しきい）値以上、未満を判定する方法/Gestep関数の使い方

Excel（エクセル）でグラフを別のワークシートに移動、またはグラフだけ表示するシートを作る方法/グラフの移動の使い方

Excel（エクセル）で文字を斜体にする方法・ショートカット/斜体ボタン・Ctrl+Iの使い方

Excel（エクセル）で日付から曜日を取得する方法/Weekday、Text関数の使い方

CSSで要素の内側・外側の余白を指定する方法/margin・paddingプロパティの使い方とちがい

Excel（エクセル）でデータベースをテーブルに変換する方法/テーブル機能の使い方

excel（エクセル）で範囲内の頻出単語・最頻値を調べる方法/Mode・Mode.sngl・Countif関数の使い方

Excel（エクセル）で計算結果がエラーかどうかを判定する方法/IsNA、IsErr関数の使い方

Power Automate Desktopの「Excelワークシートに書き込み」アクションの使い方

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

コメント