![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
マクロにてグラフを複数作成しようと考えています
しかし、ループを使用してグラフを作成すると
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ランキング
-
Windowsコマンドプロンプトのmo...
-
MySQLにて、SQLファイルの実行...
-
リンクエラーの修正法を教えて...
-
VB6.0とVB.NETの違いについて
-
VC++ .NETでWin32 APIの関数を...
-
VBA PDFで保存するマクロで実行...
-
Windows セキュリティ 検出済み...
-
texで論文作成しています。
-
Subversionのチェックアウトの...
-
PostgreSQLのインストール
-
インストールした覚えがないア...
-
WinVNC ってなんですか???
-
Macの初期化の方法
-
学校配布のPCの初期化について
-
VScodeでステップ実行が出来ない
-
MacBookにOfficeソフトを入れる...
-
SolarisとLinuxの違い
-
libz.so.0
-
Windows10のUpdateでradikoが聞...
-
VMware Player、Linux、Ubuntu
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windowsコマンドプロンプトのmo...
-
MySQLにて、SQLファイルの実行...
-
VBA PDFで保存するマクロで実行...
-
リンクエラーの修正法を教えて...
-
VBA グラフを複数作成する場合
-
ポインタと整数との比較を行な...
-
VBで作成したEXEが使用している...
-
vb.netによるアプリが動かなく...
-
office32ビット版で作成したExc...
-
デザイナ表示が出来ません
-
herokuが使えなくなりました。
-
FaceBookでアプリ作成ができません
-
VC++ .NETでWin32 APIの関数を...
-
pythonのエラーメッセージについて
-
VB6.0とVB.NETの違いについて
-
git clone https://~ ができない
-
さっきからGoogleログインでテ...
-
目次のページ番号が正しく表示...
-
EclipseのTomcatがライブラリを...
-
【緊急】VisualBasicからスキャ...
おすすめ情報