この機能はマクロVBAでも設定・変更が可能です。

今回は図形を塗りつぶす方法について紹介しています。
様々な方法を紹介していますので是非参考にしてみてください。

図形の枠の色の変更方法についてはこちらから☟

【マクロVBA】図形の枠の色の設定・変更方法！ Line.ForeColorとRGB等の使い方 ► 独学エクセル塾 (dokugakuexcel.com)

それでは見ていきましょう。

⬛︎忙しい人向けのコピペ用プログラム

Sub 変数を応用して図に色をRGBで塗りつぶす()
Dim Target, Red As Long, Green As Long, Blue As Long
Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.RGB = RGB(Red, Green, Blue)
End Sub

⬛︎構文の説明

今回は３パターン紹介しています。
使用方法は後ほど紹介しています。

①RGBでの塗りつぶし
Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.RGB = RGB(Rの数値,Gの数値,Bの数値)

②SchemeColorでの塗りつぶし
Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.SchemeColor = ここに1から80の数値

③ObjectThemeColorでの塗りつぶし
Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.ObjectThemeColor = テーマの配色の名前または値

　
※配色については下記表を参照してください。

⬛︎図の塗りつぶしをする

先程は３つの塗りつぶしの構文を紹介しました。
それでは実際にそれぞれの使用方法を紹介します。

①RGBでの塗りつぶし

まずはRGBで色をつける方法を見ていきましょう。
RGBとは「RED:赤」「Green:緑」「Blue:青」の原色を意味しており、
この3色を混ぜて色を指定します。

各数値は「0から255」で指定します。
では構文を再度確認しましょう。

Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.RGB = RGB(Rの数値,Gの数値,Bの数値)

Activesheet.Shapesの後に図形の名前を入力します。
図の名前は図を選択した際に左上の「名前のボックス」から確認することができます。

「変数= Selection.Name」で選択している図の名前を変数に格納して活用することも可能です。

一方、RGBの方はRGB(赤の要素,緑の要素,青の要素)のように指示します。

ちなみに各要素の数値が大きければ各原色は濃くなります。
一例を紹介すると下記の通りです。

白:RGB(0,0,0)
黒:RGB(255,255,255)
赤:RGB(255,0,0)
黄色:RGB(255,255,0)
青:RGB(0,0,255)

では実際にプログラムを作成してみましょう。
見本として下図のシートを用意しました。

今回は見本で「見本図」という名前をつけた図を用意しました。
こちらを塗りつぶしてみたいと思います。

例で赤色に塗りつぶしてみましょう。
プログラムはこのようになります。

Sub 図に色をRGBで塗りつぶす()
ActiveSheet.Shapes("見本図").Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

それでは実行してみましょう。
結果はこのようになりました。

見本図を赤く塗りつぶすことができましたね。

選択している図の色を変更したい場合はこちらです。

Sub 図に色をRGBで塗りつぶす()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

②SchemeColorでの塗りつぶし

次に「SchemeColor」で塗りつぶす方法を見ていきましょう。

では再度、構文を確認したいと思います。

Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.SchemeColor = ここに1から80の数値

こちらの方法は「ForeColor.SchemeColor」で塗りつぶしを宣言し、「＝」の後に
「0から80」の数値を指定します。

では見本で「6」で実行してみましょう。

今回も下図の「見本図」の色を変えたいと思います。

プログラムはこちらです。

Sub 図に色をSchemeColorで塗りつぶす()
ActiveSheet.Shapes("見本図").Fill.ForeColor.SchemeColor = 6
End Sub

それでは実行してみましょう。
結果はこのようになります。

「見本図」の色が変わりました。

では「SchemeColor」の1から80の色はどのようなものか
下図の一覧で確認してみましょう。

一応確認用の図を表示させるプログラムを載せています。

Sub SchemeColorの色一覧()

Dim CycleR As Long, CycleC As Long, No As Long
Dim TargetLeft, TargetTop, TargetWidth, TargetHeight

No = 1
For CycleC = 1 To 10 Step 3
 For CycleR = 1 To 20 Step 1
  TargetLeft = Cells(CycleR, CycleC).Left
  TargetTop = Cells(CycleR, CycleC).Top
  TargetWidth = Cells(CycleR, CycleC).Width
  TargetHeight = Cells(CycleR, CycleC).Height
  With ActiveSheet.Shapes.AddShape(msoShapeRectangle, TargetLeft, TargetTop, TargetWidth, TargetHeight)
        .Fill.ForeColor.SchemeColor = No
  End With
  Cells(CycleR, CycleC + 1) = ":" & No
  No = No + 1
 Next CycleR
Next CycleC

End Sub

選択している図の色を変更したい場合はこちらです。

Sub 図に色をSchemeColorで塗りつぶす1()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.SchemeColor = 5
End Sub

③ObjectThemeColor

こちらは設定しているテーマを活用した貼り付け方法になります。
テーマとは色を塗りつぶす際の初めに表示されるデフォルトの色になります。

つまり、こちらの方法で塗りつぶした場合、「ページレイアウト」の「配色」の設定を変えると
その配色に合わせて色が変化します。
テーマに沿った塗りつぶしをしたい場合に使えそうですね。

では構文を見てみましょう。

Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.ObjectThemeColor = テーマの配色の名前または値

ここでの「テーマの配色」は「名前」または「値」が当てはまります。
一覧に関しては下記の表をご参照ください。

ちなみにテーマと値を比較すると下図のようになります。

では実際に図を塗りつぶしてみたいと思います。
今回も下図の「見本図」の色を変えたいと思います。

Sub 図に色をObjectThemeColorで塗りつぶす()
ActiveSheet.Shapes("見本図").Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent3
End Sub

今回は「msoThemeColorAccent3」としていますが「7」でも問題ありません。
実行した結果はこちらのです。

「見本図」の色が変わりました。
先ほどの配色の表の通りに色が変化しましたね。

では見本で配色を変えてみましょう。
このようになります。

配色に合わせて図の色も変化しました。

選択している図の色を変更したい場合はこちらです。

Sub 図に色をObjectThemeColorで塗りつぶす()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.ObjectThemeColor = 7
End Sub

⬛︎オススメの図に塗りつぶしをする方法

これまで3つの方法で図に塗りつぶしをする方法を紹介しましたが、
オススメを挙げるとすると「RGB」での指定になります。

理由としては下記の内容になります。

・色の調整や変更を計算や変数で応用できる
・RGBでの指定はどの条件でも変わらない（ObjectThemeColorは配色の設定で変わる）

例を見ていきます。
下記のプログラムを用意しました。

Sub 変数を応用して図に色をRGBで塗りつぶす()
Dim Target, Red As Long, Green As Long, Blue As Long
Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.RGB = RGB(Red, Green, Blue)
End Sub

通常RGBの値を数値で入力していましたが、
見本のように変数を活用することができます。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

FillFormat.ForeColor プロパティ (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
VBAでも図の塗りつぶしをできるのは便利ですね。

是非参考にしてみてください。

それでは次回の記事でお会いしましょう。

メニューから貼り付けを見ても様々な貼り付けがあることがわかります。

それではそれぞれの貼り付けの特徴を見ていきましょう。

前回の切り取り・コピー・貼り付けの基礎知識はこちら☟

【切り取り・コピー・貼り付け】作業方法の基礎知識と特徴・よくあるエラーについて ► 独学エクセル塾 (dokugakuexcel.com)

■様々な貼り付け方法

・貼り付け

こちらは通常の貼り付けになります。
一見すべて貼り付けつように見えますが、貼り付けの対象を下記に示します。

①数式　　 　　②値　　 　　 　③書式
④コメント 　  ⑤入力規則　    ⑥罫線　

ここでの注意点として
列幅は反映されません。

見本で下記のシートをコピーしてみましょう。

結果はこのようになります。

列幅以外はコピーされていますね。

・数式

こちらは文字通り数式を貼り付けます。
その他のセルの書式や枠線等は貼り付け対象外になります。

ちなみに文字で入力されているセルは文字のまま貼り付けされます。

それでは数式で張り付けた場合を見てみましょう。

文字・数値のみ貼り付けされているように見えますね。
しかし8行目は平均値をAVERAGE関数で計算しているので見てみましょう。

数式は貼り付けられていますね。
ここで注意点ですが絶対参照にしていないと参照先は貼り付け位置の行列分スライドします。

・数式と数値の書式

こちらは数式と数値の書式を貼り付けします。
下図を見本に説明します。

ちなみに時刻データは「時刻」で設定されています。

こちらを比較用で「数式」で貼り付けた場合と「数式と数値の書式」で貼り付けた場合を見てみましょう。

数式で張り付けた場合はこちら

数式と数値の書式で貼り付けた場合はこちら

違いが分かったでしょうか。
数式と数値の書式で張り付けた場合は表示の書式も貼り付けてくれます。
なので数式では「0.7668」となるのに対し「18：24：12」と元の書式を維持して貼り付けることができます。

・元の書式を保持

こちらに関しては「貼り付け」とほとんど変わらないため割愛します。

・罫線なし

こちらは罫線を上書きしたくない場合に使用できます。
それ以外の数式や文字・数値、書式などは切り取り・コピー元と同様に
貼り付けることができます。

見本で見てみましょう。

数式やセルの塗りつぶし・データバー等の書式は貼り付けてますが
罫線は貼り付けの対象に含まれていませんね。

罫線を固定してその他を貼り付けしたい場合は最適な手法です。

・列の幅を保持

こちらは通常の貼り付けに列の幅も合わせて貼り付けてくれます。
実際に見本を見てみましょう。

これまでの貼り付けとは異なり、参照元のB列と参照先のG列が同じ列幅になっています。
さらに数式・数値・書式等も貼り付けてくれていますね。

・行列を入れ替える

こちらは少し変わり種の貼り付けです。
しかし機能は優秀でよく使用されます。

こちらも先に貼り付け結果を見てみましょう。

ご覧の通り行と列が入れ替わっています。
かみ砕いて説明すると縦に並んだセルを横に並び替えるという貼り付け方法です。

さらに数式・数値・書式等も貼り付けてくれていますね。

・値

こちらはとてもよく使用される貼り付け方法です。

個人的にもよく使用するのでマクロVBAでプログラムを作成して

ショートカットキーを登録しています。

貼り付け方法は文字通り「値」のみの貼り付けとなります。
メリットとしては計算式を切り取り・コピーして「値」で貼り付けると、結果のみが貼り付けられます。
では見本を見てみましょう。

書式や数式は貼り付けておらず、数値・文字のみの貼り付けとなっています。
平均値を求めている数式を貼り付け前と貼り付け後で比較してみましょう。

AVERAGE関数で算出していたセルが貼り付け後は結果のみが貼り付けられています。

・値と数値の書式

こちらは「数式と数値の書式」で説明した内容の
数式が値になった使用です。

では下図の数式を「値」として貼り付けた結果と「値と数値の書式」で貼り付けた結果を比較してみましょう。

値で貼り付けた値

値と数値の書式で貼り付けた値

値と数値の書式で貼り付けた方は表示の書式が日時で貼り付けてくれていますね。

・値と元の書式

こちらは数式は貼り付けずに、その他の数値や文字、書式を貼り付ける機能です。
書式も貼りつけるので塗りつぶしや罫線も貼り付けます。

数式のみ貼り付けないイメージですね。

・書式設定

こちらは文字通り書式設定のみ貼り付けます。
では見本を見てみましょう。

塗りつぶしや罫線などの書式が貼り付けていますね。
では数値が入っていたセルに数値を入力してみましょう。

条件付き書式も貼り付けの対象になっていますね。

・リンク貼り付け

こちらは書式や数式・文字は貼り付けずに
参照元のセルを「＝」で表示する数式を貼り付ける機能です。

こちらも見本を見てみましょう。

一見、値のみ貼り付けしているみたいですよね。
では貼り付け先の内容を見てみましょう。

単純に参照元を「＝」で参照しているだけですね。

・図

こちらは切り取り・コピーした内容を
図で貼り付けます。

なので下図のように小さくすることも可能になります。
もちろん図になってますので内容の変更はできません。

・リンクされた図

こちらは「図」で貼り付ける内容に元データとリンク機能を持たせた貼り付けになります。
つまり、図自体のデータの変更は不可能ですがコピー元の数値や書式が変われば
「リンクされた図」で貼り付けた図も追従して変わります。

では見本を見てみましょう。
リンクされた図で貼り付けました。

では元データの「B2:E8」の内容を変更してみましょう。
するとこのようになります。

コピー元の変更に合わせてリンクされた図も変更されました。

■形式を選択して貼り付け

これまで説明したメニューの貼り付け以外でも
貼り付け方法を選択して貼り付けをする方法もあります。

たとえは「列の幅」と「値のみ」貼り付けしたい場合があったとします。
しかしメニューにはそのような貼り付け方法はありません。

その際は「形式を選択して貼り付け」で指定した貼り付けを選択できます。

形式を選択して貼り付けは貼り付けのメニューの一番下に項目があります。

するとこのような画面が出てくると思います。

では例で「列の幅」と「値のみ」で貼り付けしましょう。
その場合は「列幅」「値」の項目にチェックを入れて「OK」を押すと対応できます。

貼り付けメニューにない貼り付けを行う際は活用してみてください。

■演算して貼り付け

こちらは貼り付けに演算機能を追加します。
一気に計算する際にはとても便利です。

では下図の見本を見てみましょう。

かける数値を「5」として
乗算して「C6:F8」に貼り付けてみましょう。

まず「F3」をコピーしてください。
“その後「C6:F8」を選択して「形式を選択して貼り付け」の画面を表示します。
“

そして「演算」の項目の「乗算」にチェックを入れて「OK」を押してみてください。

結果を見てみましょう。

選択した範囲にすべて「5」をかけることができました。
足し算なら「加算」にチェック、割り算なら「除算」にチェックを入れると計算可能です。

■まとめ

いかがだったでしょうか。

様々な貼り付けのオプションについて説明しましたが

演算まで行えるのは便利ですよね。

ぜひ貼り付けを身に着けて様々な場面に使い分けてください。

それでは次回の記事でお会いしましょう。