Skip to content

Instantly share code, notes, and snippets.

@zuzu
Created November 29, 2014 07:23
Show Gist options
  • Save zuzu/074d24054fb870e4046e to your computer and use it in GitHub Desktop.
Save zuzu/074d24054fb870e4046e to your computer and use it in GitHub Desktop.
選択中のシートの一番上にある図のリンク先を変更するマクロ。
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