Excelの等高線図を使って温度分布図を作成しています。
(ある温度以上では赤,ある温度以下では青,というように)
その図作成の手順は
データ範囲選択→等高線グラフ作成→温度幅(目盛り幅)設定→各温度幅での色の変更
となっています。
この作成手順をマクロ登録しており,上の手順で温度幅の設定までは登録・実行でき
るのですが,色の変更操作は登録してもそれについての記述がされません。
今下のようにコードされています。
ActiveSheet.Shapes.AddChart.Select 'グラフを作成
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$D$7:$Z$107")
'シート1のデータを使用 範囲選択
ActiveChart.ChartType = xlSurfaceTopView '等高線作成
ActiveChart.Axes(xlSeries).Select
Selection.Delete
ActiveChart.PlotBy = xlRows
ActiveChart.HasAxis(xlValue) = True
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = 0 ’温度幅設定
ActiveChart.Axes(xlValue).MaximumScale = 30
ActiveChart.Axes(xlValue).MaximumScale = 110
ActiveChart.Axes(xlValue).MajorUnit = 10
ActiveChart.Legend.Select
ActiveChart.Legend.LegendEntries(1).Select
'色の変更 10個の凡例の色を一つずつ変えていきたい
ActiveChart.Legend.LegendEntries(2).Select
ActiveChart.Legend.LegendEntries(3).Select
ActiveChart.Legend.LegendEntries(4).Select
ActiveChart.Legend.LegendEntries(5).Select
ActiveChart.Legend.LegendEntries(6).Select
ActiveChart.Legend.LegendEntries(7).Select
ActiveChart.Legend.LegendEntries(8).Select
ActiveChart.Legend.LegendEntries(9).Select
ActiveChart.Legend.LegendEntries(10).Select
End Sub
上の通り凡例の色変更の部分で、色の情報などが記述されていないので
ActiveChart.Legend.LegendEntries(1).Format.Fill.ForeColor.RGB = RGB(0, 0,
0)
と入れてみたのですがこれを実行すると
実行時エラー’-2147467259 (80004005)':
'Fill'メソッドは失敗しました:'ChartFormat'オブジェクト
と表示されます。
どこに問題があるのか,どのように変えればいいのか教えてもらえないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- 計算機科学 Scilabのplotで使用するlegendに関する質問です。 2 2022/11/29 22:29
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
- Excel(エクセル) [Excel2016] 相関表等の自動作成 2 2022/08/01 20:34
- ドライブ・ストレージ B550M Pro4マザーにM.2_SSD取付に関して 2 2023/04/15 02:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- ルーター・ネットワーク機器 PCをWI-FI化(現在は有線) 9 2023/01/16 08:20
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
Microsoft 365のディフェンダー...
-
英数字のみ全角から半角に変換
-
Office2021を別のPCにインスト...
-
エクセルでXLOOKUP関数...
-
会社PCのメールが更新されない
-
MicrosoftOffice2019なんですが、
-
Excel 日付を比較したら、同じ...
-
Outlook 電源OFFの受診の仕方
-
MicrosoftOfficeの1ユーザー2...
-
ウィンドウィズ メモ帳で日付だ...
-
【Excel】セル内の文字が正しい...
-
Excel テーブル内の空白行の削除
-
web上にあるエクセルをショート...
-
マクロ自動コピペ 貼り付ける場...
-
マイクロソフト 一時使用コード...
-
outlookで宛先が異なるメールを...
-
Excelのバージョンを2019 から2...
-
VBAで横データを縦データに変換...
-
EXCELのセルへの色づけ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報