Skip to content

Instantly share code, notes, and snippets.

@zuzu

zuzu/SelectedSheetsDrawingObjectsFormulaChanger.vbs

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.
Download ZIP
選択中のシートの一番上にある図のリンク先を変更するマクロ。
Raw
SelectedSheetsDrawingObjectsFormulaChanger.vbs
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