TOP > プログラミング Excel関係 > 選択グラフ名を変更

■ExcelVBA 選択グラフ名を変更


グラフを選択状態で、このマクロを実行するとグラフ名を変更出来ます。
※グラフ名が被っていても変更可能です。



グラフを選択しマクロを実行すると、上記の様なダイアログが表示されます。名前を入力し「OK」して下さい。


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Sub 選択グラフの名前変更() Dim Before_Name, After_Name As String Dim Chart_index_No As Integer Dim buf, Messge1, Messge2 As String 'アクティブグラフの名前取得 Before_Name = ActiveChart.Parent.Name 'アクティブグラフのインデックス番号取得 Chart_index_No = ActiveChart.Parent.Index 'インプットボックス表示 Messge1 = "※グラフの名前変更が終了したら、上書き保存してファイルを再起動して下さい!" Messge2 = "※グラフを右クリック → グラフウインドウ にした時、反映されていない時がある為" buf = InputBox(Prompt:=Messge1 & vbCrLf & vbCrLf _ & Messge2 & vbCrLf & vbCrLf _ & "現在のグラフ名前:【" & Before_Name & "】です。", _ Title:="選択グラフ名前変更", Default:="グラフ ") 'キャンセルの時 If buf = "" Then Exit Sub 'デフォルトの時 If buf = "グラフ " Then Exit Sub After_Name = buf 'インプットボックスに入力した名前をグラフに適用する With ActiveSheet '「.ChartObjects(Chart_index_No).Name」の()の中はインデックス番号を入れないとエラーになる .ChartObjects(Chart_index_No).Name = After_Name End With '一応グラフをアクティブにする(この処理はなくてもいいかも) ActiveSheet.ChartObjects(Chart_index_No).Activate '通知メッセージ MsgBox Before_Name & "から" & After_Name & "へ変更しました。" End Sub


関連リンク:ExcelVBA ActiveSheet内のグラフ名を一括で変更

戻る

このページのURLをメールで送る