円グラフの色設定（Chart,SeriesCollection）

公開日：2013年5月以前　最終更新日：2013-05-14

円グラフの色設定（Chart,SeriesCollection）

円グラフの色を、元の表から設定します。

以下は、ウイザードでグラフを作成した状態です。

Excel VBA 解説

A列に指定した、塗りつぶし色を、グラフに反映させます。




Sub sample()
　　Dim i As Long

      　　With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
　　　　For i = 1 To 
.Points.Count
　　　　　　.Points(i).Interior.Color = Cells(i + 1, 
1).Interior.Color
　　　　Next i
　　End With
End 
Sub

たった、これだけです。

手作業よりは、はるかに簡単ですし、応用範囲が広いと思います。

以下は、実行結果です。

Excel VBA 解説

同じテーマ「マクロVBAサンプル集」の記事

図を確認しながら消していく（Shape）

行削除や、列削除等により、図が見えなくなってしまう事があります。しかも、セルのコピーで沢山出来てしまい、困った事ありませんか。「ジャンプ」→「セル選択」で、オブジェクトで一括選択して削除する事は出来ます。

オートシェイプを他ブックの同じ位置に貼り付ける（Shapes,DrawingObjects）

コメントでリクエストを頂きました。「１つのシートにバラバラにあるオートシェープを一度に選択して、コピーし、ほかのブックのあるシートの同じ位置にペーストしたい」というもの。これには色々な問題が含まれています。

全シートの画面キャプチャを取得する（keybd_event）

資料等の作成で、画面キャプチャすることがあると思います。そこで、全シートの画面キャプチャを、新規シートに全て取得するプログラムです。Alt+PrntScrnで、エクセルのウインドウのみキャプチャしています。

写真の取込方法について（Pictures.Insert,Shapes.AddPicture）

・Pictures.Insertメソッド・Shapes.AddPictureメソッド・Shapesに関連する記事

写真をサムネイルに変換して取り込む（Shapes.AddPicture）

・写真をサムネイルに変換して取り込むVBA ・写真をサムネイルに変換して取り込むVBAの解説・Shapesに関連する記事

円グラフの色設定（Chart,SeriesCollection）
棒グラフ・折れ線グラフのサンプルマクロ

グラフはプロパティ・メソッドも多いので、自分の覚書もかねて掲載しました。この元データから、以下のグラフが作成されます。解説は、プログラム内のコメントを参考にして下さい。系列データのデータ数が増えた時に、データ範囲を変更するマクロも掲載しておきます。

人口ピラミッドのグラフをマクロで作成

人口ピラミッドのグラフ作成は、設定項目が多く、かなり面倒です。マクロでサクッと作って、細かい部分を手動で設定できれば楽です。この表から、以下のグラフを作成します。手動で設定すると、かなり多くの手順が必要になります。

グラフで特定の横軸の色を変更し基準線を引くマクロ

特定の横軸のみ色を変更する、つまり、基準値や下限・上限等に線を引きたい場合のマクロVBAになります。手動でやろえとすると結構面倒なので、いざやろうとするとなかなか出来なかったりします。グラフの元データに線を引きたい数値の系列をシートに追加しておくと、もう少し楽にできますが、ここでは、シートには手を加えずに基準線を引…

グラフのデータ範囲を自動拡張するマクロ

グラフのデータ範囲を自動で拡張・縮小するマクロVBAになります、グラフのデータ範囲を変更する事は度々ありますが、作業自体は大した事はないのですが、やはり面倒ですし、グラフの数が多いと、結構な手間になります。注意以下は、棒グラフ・折れ線グラフの場合になります。

画像のトリミング（PictureFormat,Crop）

エクセルで画像をトリミングするマクロになります、画像の一部を四角に切り取るVBAコードの解説です。図形で切り取る等は、自動記録のコードをほぼそのまま使えるはずですので、ここでは、基本的かつ汎用的な、一部を四角に切り取るVBAコードについて、サンプルコードを掲載して解説します。

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
円グラフの色設定（Chart,SeriesCollection）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
円グラフの色設定（Chart,SeriesCollection）