⚡
UpdateAllCharts
自動化アクティブシート内の全グラフを強制更新します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： UpdateAllCharts を実行すると、シート内の全グラフが再描画されます
💻 VBAコード
' UpdateAllCharts
' -----------------
' Macro Name: UpdateAllCharts
' Description: アクティブシート内の全グラフを強制更新します
' Parameters: なし
' Returns: なし
' Usage: UpdateAllCharts を実行すると、シート内の全グラフが再描画されます
' -----------------
Sub UpdateAllCharts()
On Error GoTo ErrorHandler
Dim ws As Worksheet
Dim chartObj As ChartObject
Set ws = ActiveSheet
If ws.ChartObjects.Count = 0 Then
MsgBox "グラフが見つかりません", vbInformation, "情報"
Exit Sub
End If
For Each chartObj In ws.ChartObjects
chartObj.Chart.Refresh
Next chartObj
MsgBox ws.ChartObjects.Count & " 個のグラフを更新しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub