いつも参考にさせて頂いております。
生徒にグラフを作ってもらい、そのグラフが問題どおりに作られているかどうかをVBAで判定しようと考えています。
凡例の位置とレイアウトの判定がうまくできません。コードは以下のようにしております。
Sub Test()
Dim Q6_sh As Worksheet
Set Q6_sh = Worksheets("年間実績表")
With Q6_sh.ChartObjects(1).Chart
If .ApplyLayout(6) Then
Q6_sh.Range("Q5") = 5
Else
Q6_sh.Range("Q5") = 0
End If
If .SetElement(msoElementLegendBottom) Then
Q6_sh.Range("Q7") = 5
Else
Q6_sh.Range("Q7") = 0
End If
End With
End Sub
グラフのレイアウトをリボンから「レイアウト6」を選び、判例をリボンから「下に配置」を設定していますが、どちらも結果は指定したセルに「0」が表示されます。
データラベルやグラフタイトルはうまく判定がされたのですが、レイアウトと凡例がうまくできません。
一度マクロの記録で操作を行って、どのように記述されるかを試してみました。すると、以下のようになりました。最初からグラフを選択した状態からの記録です。
ActiveChart.ApplyLayout (6)
ActiveChart.SetElement (msoElementDataLabelOutSideEnd)
ActiveChart.ChartArea.Select
ActiveChart.SetElement (msoElementLegendBottom)
上のコードを参考に、
If ActiveChart.ApplyLayout(6) Then
Q6_sh.Range("Q5") = 5
Else
Q6_sh.Range("Q5") = 0
End If
と記述すると、「.ApplyLayout(6)」でエラーがでて「Functionまたは変数が必要です」などというメッセージが表示されます。
そこで、最初のコードのように
Q6_sh.ChartObjects(1).Chart.ApplyLayout(6) という書き方にするとエラーは表示されませんでした。
たぶん、このあたりが間違っているのではと思っていますが・・。
どなたかのご指導があれば助かります。宜しくお願い致します。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
リファレンスを見ると、ApplyLayout()はサブルーチンなので戻り値は無いです。
なので、if文の条件式に書けません。
どういうレイアウトなのかは、個々のプロパティや位置関係を特定しないと判断できないのかも。
osamuyさんありがとうございました。
戻り値がないということで、調べてみました。やはり個別に判断する必要があるようです。
レイアウトとなるデータラベルの位置や凡例の位置はpositionプロパティがありましたので、それを使うとうまく判定できました。
解答して頂いた言葉がヒントになりました。ご指導ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C言語によるハノイの塔のプログ...
-
VBA グラフの存在の判定について
-
現在、エクセルで、選択したグ...
-
OWCによるグラフ描写について
-
論文に載せるグラフを作成したい
-
excelのグラフをLaTexに挿入す...
-
【VBA】Excel等高線グラフの...
-
C# PictureBox + panelでのスク...
-
Excel VBA グラフ ChartType に...
-
エクセルVBAについて
-
onedriveで同期解除をしたら、...
-
C#で他のPCのサービスの起動...
-
共有しているファイルを削除し...
-
vlan internal allocation poli...
-
if文の条件に関数が入ってる場...
-
USBデータの消失
-
マイドキュメントのフォルダの...
-
teratarmでコマンド入力すると...
-
Ciscoルーター 対向機器のIPア...
-
Windowsファイルエクスプローラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA グラフの存在の判定について
-
論文に載せるグラフを作成したい
-
【VBA】Excel等高線グラフの...
-
グラフの元のデータを消しても...
-
excelのグラフをLaTexに挿入す...
-
Excel VBAでグラフをクリックし...
-
グラフを「似ている」順に並べ...
-
Excel VBAで、グラフを特定のセ...
-
MFCプログラミング
-
Excel VBA グラフ ChartType に...
-
c言語 正負の値それぞれでの最...
-
グラフの色を数値で変わるように!
-
C#のChartで目盛線をグラフの前...
-
excelで散布図に線を追加したい
-
Excel VBAでグラフ作成。A,C列...
-
matlabのy軸を2つ利用したグラ...
-
Google Chart APIでランキング表示
-
gnuplotで関数を途切れさせるに...
-
C言語によるハノイの塔のプログ...
-
Scilabのグラフの凡例
おすすめ情報