Create a gist now

Instantly share code, notes, and snippets.

選択中のシートの一番上にある図のリンク先を変更するマクロ。
Sub 選択中のシートの一番上にある図のリンク先を変更する()
For Each sh In ActiveWindow.SelectedSheets
sh.DrawingObjects(1).Formula = "=ヘッダー!$A$1:$S$3"
Next sh
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment