マクロにてグラフを複数作成しようと考えています
しかし、ループを使用してグラフを作成すると
1つ以上の場合エラーになってしまい作成できません
どのように作成したらよいのでしょうか?
2つ目以降のグラフObjectの名前が重なるからエラーになるとか、そういう部分での問題でしょうか?
-------------------------------------
Sub Graph
For i = 1 To 2 'source_cnt
Call Make_Graph(引数)
Next
End Sub
-------------------------------------
Sub Make_Graph(引数)
With ActiveSheet.ChartObjects.Add( _
Left:=Range(***).Left, _
Top:=Range(***).Top, _
Width:=Range(***).Width, _
Height:=Range(***).Height)
.Chart.ChartType = xlRadar
.Chart.SetSourceData Source:= Range(***), PlotBy:=xlColumns
.Chart.Location Where:=xlLocationAsObject, Name:=WorkSheet.Name
.Chart.HasLegend = False
End With
-------------------------------------
No.1ベストアンサー
- 回答日時:
標準モジュールに、質問のコードを一部手直しして、下記にして貼り付け実行しました。
2つレーダーチャートを描きましたが。後はご自分で改良してください。
Dim i
Sub Graph()
For i = 1 To 2 'source_cnt
Call Make_Graph
Next
End Sub
Sub Make_Graph()
With ActiveSheet.ChartObjects.Add( _
Left:=Cells(2, i * 5).Left, _
Top:=Cells(2, i * 5).Top, _
Width:=200, _
Height:=300)
.Chart.ChartType = xlRadar
.Chart.SetSourceData Source:=Range(Cells(1, 1), Cells(10, i)), PlotBy:=xlColumns
'.Chart.Location Where:=xlLocationAsObject, Name:=Worksheet.Name
.Chart.HasLegend = False
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:07
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA PDFで保存するマクロで実行...
-
VB6.0とVB.NETの違いについて
-
Windowsコマンドプロンプトのmo...
-
リンクエラーの修正法を教えて...
-
ポインタと整数との比較を行な...
-
Microsoft365について
-
インストールした覚えがないア...
-
Windowsの古いゲーム(32bit OS...
-
古いiMacにLinuxをインストール...
-
Macでのおすすめ写真加工フリー...
-
Macのストレージ管理 OSの削除
-
QuickTime7.5.5以上にバージョ...
-
MacOS10ですが11対応アプリをイ...
-
PIC16F88の仕様書
-
mod_dav_svnをインストール出来...
-
lddの見方について教えてくださ...
-
学校配布のPCの初期化について
-
マイクロソフトワンドライブア...
-
EXCELの「接続」のSQLのコマンド...
-
Mouseover Dictionary
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windowsコマンドプロンプトのmo...
-
VBA PDFで保存するマクロで実行...
-
MySQLにて、SQLファイルの実行...
-
リンクエラーの修正法を教えて...
-
VBA グラフを複数作成する場合
-
EclipseのTomcatがライブラリを...
-
Excel VBAでグラフを移動させる...
-
VB6.0とVB.NETの違いについて
-
VBで作成したEXEが使用している...
-
デザイナ表示が出来ません
-
python django で エラー表示し...
-
office32ビット版で作成したExc...
-
ポインタと整数との比較を行な...
-
vb.netによるアプリが動かなく...
-
コマンドプロンプト(Pingコマ...
-
Visual Studio のエディタの動...
-
テキストエディタatomの日本語化
-
git clone https://~ ができない
-
pythonのエラーメッセージについて
-
FaceBookでアプリ作成ができません
おすすめ情報