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

今回は図形の枠に色を付ける方法について紹介しています。
様々な方法を紹介していますので是非参考にしてみてください。

図形の塗りつぶしについてはこちらから☟

【マクロVBA】図形の塗りつぶし・色の設定方法！ Fill.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).Line.ForeColor.RGB = RGB(Red, Green, Blue)
End Sub

⬛︎構文

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

①RGBで図形の枠に色を付ける方法
Activesheet.Shapes (“ここに図形の名前”).Line.ForeColor.RGB = RGB(Rの数値,Gの数値,Bの数値)

②SchemeColorで図形の枠に色を付ける方法
Activesheet.Shapes (“ここに図形の名前”).Line.ForeColor.SchemeColor = ここに1から80の数値

③ObjectThemeColorで図形の枠に色を付ける方法
Activesheet.Shapes (“ここに図形の名前”).Line.ForeColor.ObjectThemeColor =テーマの配色の名前または値

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

⬛︎図の枠に色を付けるをする

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

①RGBで図形の枠に色を付ける方法

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

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

Activesheet.Shapes (“ここに図形の名前”).Line.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("見本図").Line.ForeColor.RGB = RGB(255, 0, 0)
End Sub

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

見本の図の枠の色を赤くすることができました。

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

Sub 図の枠の色をRGBでつける()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Line.ForeColor.RGB = RGB(255, 0, 0)
End Sub

②SchemeColorで図形の枠に色を付ける方法

次に「SchemeColor」で図形の枠に色を付ける方法を見ていきましょう。

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

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

こちらの方法は「ForeColor.SchemeColor」で枠に色を付けるを宣言し、「＝」の後に
「0から80」の数値を指定します。

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

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

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

Sub 図の枠の色をSchemeColorでつける()
ActiveSheet.Shapes("見本図").Line.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)
　　.Line.ForeColor.SchemeColor = No
　　End With
　　Cells(CycleR, CycleC + 1) = ":" & No
　　No = No + 1
　Next CycleR
Next CycleC

End Sub

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

Sub 図の枠の色をSchemeColorでつける()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Line.ForeColor.SchemeColor = 10
End Sub

③ObjectThemeColorで図形の枠に色を付ける方法

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

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

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

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

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

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

では実際に図の枠に色を付けてみたいと思います。
今回も下図の「見本図」の色を変えたいと思います。

プログラムはこのようになります。

Sub 図の枠の色をObjectThemeColorでつける()
ActiveSheet.Shapes("見本図").Line.ForeColor.ObjectThemeColor = msoThemeColorAccent4
End Sub

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

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

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

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

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

Sub 図の枠の色をObjectThemeColorでつける()
Dim Target
Target = Selection.Name
ActiveSheet.Shapes(Target).Line.ForeColor.ObjectThemeColor = msoThemeColorAccent4
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).Line.ForeColor.RGB = RGB(Red, Green, Blue)
End Sub

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

⬛︎公式の説明

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

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

⬛︎まとめ

いかがだったでしょうか。
VBAでも図の枠に色を付けることができるのは便利ですね。

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

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

文字を大きくしたい、色を変えたい、文字を太くしたいなど

文字に関する操作方法をまとめていますので是非参考にしてみてください。

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

■ 文字のフォントを変更する

まずは文字のフォントの変え方です。
フォントとは簡単にいうと文字の種類を変えるものです。
習字で書いたような文字やガタガタした文字、丸い文字などに変更できるようになります。

まずフォントの変更の仕方についてです。

最初に変更したい文字を選択します。
今回は「あいうえお」を変更してみましょう。

その後、「ホーム」を選択し現在のフォントである「MS Pゴシック」と書いてある欄の右の▼を押します。

すると下記のような画面に変わります。

見ていただくとわかる通り、たくさんの種類があります。
様々なフォントを表示してみて、レギュラーメンバーを選出してみてください。

ちなみに代表として有名なフォントをのせておきます。

個人的には「Meiryo UI」「游ゴシック」がスマートで使いやすいです。

■ 文字の色を変更する

まず手始めに文字の色からです。
B2に「エクセル」と打ち込んでみました。

ではこちらの色を変えていきましょう。

変えるためには、まず色を変えたい文字を選択します。
その後、「ホーム」を選択し「A」と書いてある図の右の▼を押します。

すると下記のような画面に変わります。

後は、変えたい文字の色を押せば完了です。
では例として「赤」を押してみます。

文字の色が赤色に変わりましたね。
このほかのに変えたい場合は、その他の色を選択してください

「その他の色」を選択すると「標準」「ユーザー設定」の中から色を選択することができます。

「ユーザー設定」に関しては詳細に色を変更することができるので是非試してみてください。

このように様々な色に変えることができます。
ぜひ、自分好みの色に変えてみてください。

■ 文字の大きさを変更する

次に文字の大きさを変えてみます。

大きさをを変えたい文字を選択します。
その後、「ホーム」を選択し「A▲」「A▼」と書いてあるボタンを押せば段階的に変更できます。
ちなみに「A▲」が文字を大きく、「A▼」が文字を小さくします。

大きさをイ変更することができたでしょうか。
その際に「A▲」「A▼」と書いてある横の数字が変わってるのがわかります。

この数値が文字の大小を表しています。

数値が大きくなれば文字も「大きく」、数値が小さければ文字も「小さく」なります。

ちなみにここの数値を変えても文字の大きさを変えることができます。
一気に大きくor小さくする際によく使用しますね。

■ 文字の太さを変更する

・ 文字を太く変更する操作方法

文字の太さを変えていきます。
太さをを変えたい文字を選択します。
その後、「ホーム」を選択し「B」と書いてあるボタンを押せば太字に変更できます。

では実際に押してみましょう。

太くなりましたね。
文字の強調などに使用します。

・ショートカットキー

ちなみに太文字の操作はショートカットキーが存在します。

「Ctrl + B 」で太文字の操作になるので是非覚えて下さい。

■ 文字を斜めに変更する

・文字を斜体に変更する操作方法

こちらも太字と手順は一緒です。

斜めに変えたい文字を選択します。
その後、「ホーム」を選択し「I」と書いてあるボタンを押せば斜め太字に変更できます。

・ショートカットキー

こちらもショートカットキーが存在します。

「Ctrl + I 」で文字が斜体になるので是非覚えて下さい。

■ 文字にアンダーラインを追加する

・通常の下線に変更する操作方法

こちらも太字と手順は一緒です。

アンダーラインを追加したい文字を選択します。
その後、「ホーム」を選択し「U」と書いてあるボタンを押せばアンダーラインを追加できます。

・ショートカットキー

こちらもショートカットキーが存在します。

「Ctrl + U」で文字が斜体になるので是非覚えて下さい。

・二重下線に変更する操作方法

さらにアンダーラインには通常の「下線」と「２重下線」が存在します。

「二重下線」の操作方法は

アンダーラインを追加したい文字を選択した後、アンダーラインの追加メニュー横の

「▼」を押してみてください。

「二十下線」を押すと下図のように２重のアンダーラインを引くことができます。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

テキストの色を変更する (microsoft.com)

フォントのサイズを変更する (microsoft.com)

■ まとめ

いかがだったでしょうか。
文字操作は基本の技ですが資料作りやシステム作りには欠かせません。

フォントについては沢山の種類があるので様々なフォントにトライしてみてください。

作成したファイルの内容に合わせてフォントを変えてみてもいいかもしれませんね。

では次回の記事でお会いしましょう！

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！