Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　グラフの種類を選択する
'
'  Copyright(C) 2000 Sunago
'
'　このマクロでは右クリック時に表示されるショートカットメニューの
'　「グラフの種類」を実行してグラフの種類を任意に選択できます。
'　※「グラフの種類」メニューを実行するにはあらかじめグラフエリアを
'　選択しておく必要があります。

Option Explicit

Sub Macro1()

    Worksheets("Sheet1").Activate
    '埋め込みグラフをアクティブに
    ActiveSheet.ChartObjects(1).Activate
    'グラフエリアを選択する。
    ActiveChart.ChartArea.Select
    '埋め込みグラフ選択した状態で右クリックを押すと表示されるショートカットメニュー
    With Application.CommandBars("Plot Area")
        .Controls("ｸﾞﾗﾌの種類(&T)...").Execute  'XL97での動作を考慮し、Captionは半角カナを用いる
    End With
End Sub

'/* メニュー項目のIDが判るときの例 */
Sub Macro2()
Dim myMenu

    Worksheets("Sheet1").Activate
    '埋め込みグラフをアクティブに
    ActiveSheet.ChartObjects(1).Activate
    'グラフエリアを選択する。
    ActiveChart.ChartArea.Select
    
    Set myMenu = Application.CommandBars.FindControl _
                    (Type:=msoControlButton, Id:=918)   'グラフの種類(ID:=918)
    If StrConv(myMenu.Caption, 8) <> "ｸﾞﾗﾌの種類(&T)..." Then
        MsgBox "メニューの項目名が間違っています。" & Chr$(10) & _
                "caption := " & myMenu.Caption
      Else
        myMenu.Execute
    End If
    Set myMenu = Nothing
End Sub