Skip to content

Instantly share code, notes, and snippets.

@xight

xight/ppt-centering-shapes.bas

Last active June 8, 2016 05:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save xight/f14eb90913d60fd81d4ac2dd5eb76c1f to your computer and use it in GitHub Desktop.
Save xight/f14eb90913d60fd81d4ac2dd5eb76c1f to your computer and use it in GitHub Desktop.
Download ZIP
PowerPointで指定した名前のShapeをセンタリングするマクロ
Raw
ppt-centering-shapes.bas
Sub CenteringShapes()
targetNameArr = Array("Picture 6", "Content Placeholder 6")
Dim sld As Slide
Dim sh As Shape
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
For Each targetName In targetNameArr
If sh.Name = targetName Then
Set myRange = sld.Shapes.Range(Array(targetName))
myRange.Align msoAlignCenters, msoTrue
myRange.Align msoAlignMiddles, msoTrue
End If
Next
Next
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment