|
kou さん、こんにちわ。
>シート内のすべてのグラフ、もしくは1つだけ選択したグラフであればやれるのですが、複数選択したグラフに処理したい場合どうすればよいのでしょうか。
複数選択されている場合はループして一つずつ処理します。
Sub test()
If TypeName(Selection) = "DrawingObjects" Then
Set obj2 = Selection
For Each obj1 In obj2
If TypeName(obj1) = "ChartObject" Then
obj1.Select
' 選択後の処理(ActiveChartで処理しているようなのでここで選択)
MsgBox Selection.Name
Else
'他のアイテムも一緒に選択しています。
Debug.Print TypeName(obj1) & " :処理対象外"
End If
Next
Else
'複数選択されたグラフではないほかのオブジェクト(単体グラフ含む)
MsgBox TypeName(Selection)
End If
'
Set obj1 = Nothing: Set obj2 = Nothing
End Sub
こんな感じです。
|
|