シート状に複数のグラフ(散布図)が作られてます.
これの輪郭線をすべて消去したいです.
Excel操作でいうと「グラフエリアの書式設定」→「パターン」タブ→
輪郭を「なし」となります.
一グラフに対して自動記録マクロをとると,次のようになります.
これを,ブック上(シート上でなく)にある全てのグラフオブジェクト
に対して施したいのですが,その方法がわかりません.
Sub Macro1()
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
With Selection.Border
.Weight = 1
.LineStyle = 0
End With
Selection.Interior.ColorIndex = xlAutomatic
Sheets("Sheet1").DrawingObjects("グラフ 1").RoundedCorners = False
Sheets("Sheet1").DrawingObjects("グラフ 1").Shadow = False
End Sub
よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
コメントを頂いておりましたのに、回答が遅れまして申し訳ありません。
もし、ブック全体に対象を広げたいのであれば
Sub Macro1()
Dim mySheet As Worksheet
Dim myChart As ChartObject
For Each mySheet In ThisWorkbook.Worksheets
For Each myChart In mySheet.ChartObjects
myChart.Chart.ChartArea.Border.LineStyle = 0
Next
Next
End Sub
となると思います。
御礼遅くなり失礼いたしました.
おかげさまでブック全体にも適用できました.
ほんと,感謝にたえません.
ちなみに私の場合,全て個人用マクロブック
(PERSONAL.XLS)に保持するため,
For Each mySheet In ThisWorkbook.Worksheets
を
For Each mySheet In ActiveWorkbook.Worksheets
で動くようです.
おかげさまで作業効率が飛躍的に向上です.
本当にありがとうございました.
No.1
- 回答日時:
以下のような感じでいけるんじゃないでしょうか。
Sub Macro1()
Dim myChart As ChartObject
For Each myChart In ActiveSheet.ChartObjects
myChart.Chart.ChartArea.Border.LineStyle = 0
Next
End Sub
aihoさん,早速ありがとうございました.
試してみたところ,バッチリでした.
対象をシート全体からブックに全体に
拡張するのは敷居高いでしょうか.
もしカスタマイズが容易であれば
ご教示いただけますと幸いです.
まずは御礼申し上げます.
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Excel(エクセル) Excel 散布図グラフ 外れ値 セル番地参照方法 4 2022/04/19 18:56
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Excel(エクセル) エクセルの大きなシートでグラフを見つける 4 2022/07/28 10:07
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのグラフの色を統一す...
-
グラフの線だけをコピペしたい!
-
【至急】Excelで睡眠時間のグラ...
-
アクセスのグラフについて
-
エクセルのグラフに上下限値の...
-
エクセルでグラフの平均化を教...
-
Excel2010 グラフ 横軸目盛線の...
-
Excelのグラフ「プロット...
-
Excel2007のグラフで右の枠線を...
-
エクセルのグラフで、背景を塗...
-
Excelのグラフで上と右の枠線を...
-
エクセル グラフのプロットエ...
-
グラフの上側が空いているので...
-
Sma4のグラフ作製
-
EXELグラフをWORDに貼り付ける...
-
EXCELで数値に対応したベクトル...
-
wordで数直線・グラフを作成
-
エクセルのプロットエリアについて
-
回答をプロットするってなんで...
-
はみ出たレーダーチャートの表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフの色を統一す...
-
エクセルのグラフに上下限値の...
-
グラフの線だけをコピペしたい!
-
【至急】Excelで睡眠時間のグラ...
-
Excelのグラフで
-
Excelのグラフで上と右の枠線を...
-
エクセルでグラフの平均化を教...
-
ワードでCos、sinの図を書きたい
-
エクセル グラフのプロットエ...
-
EXELグラフをWORDに貼り付ける...
-
Excelのグラフ「プロット...
-
はみ出たレーダーチャートの表...
-
excelで線と線の間を塗りつぶし...
-
Excelグラフ
-
wordで数直線・グラフを作成
-
Sma4のグラフ作製
-
EXCELで数値に対応したベクトル...
-
Excelで膨大な系列数のグラフを...
-
グラフの上側が空いているので...
-
Excel:角ばったグラフの線を滑...
おすすめ情報