CODEWITHSUNDEEP
vbapowerpointpowerpoint-2016
pptbot
pptbot

Reputation: 55

Reposition shape and text box on a slide

I want to achieve when I select either a shape or a text box they will move to the same location (bottom align) on a slide. My shape and text box are different in height so for example with text boxes, some have one line and some have multiple lines. The text in the text box is aligned to Bottom in ppt.

I've tried using the code .top but it will move the text box that have two or more lines out of the slide area. Trying to fix if the selected shape or text box is in different height then it will stay in the lower-left corner from the bottom to go upward and stay on the slide. Below is the code I have so far. Thanks 

 Sub PositionShape()
     Dim oshp As Shape
     On Error Resume Next

     Set oshp = ActiveWindow.Selection.ShapeRange(1)

     With oshp
         .LockAspectRatio = False
         .Left = 0.5 * 72
         .Top = 7.3 * 72
     End With

 End Sub

Upvotes: 1

Views: 710

Answers (1)

John Korchok
John Korchok

Reputation: 4913

This will move the bottom of the shape to the bottom of the slide:

Sub PositionShape()
  Dim oshp As Shape
  Dim SlideHeight&
  SlideHeight& = Application.ActivePresentation.PageSetup.SlideHeight
  Set oshp = ActiveWindow.Selection.ShapeRange(1)
  With oshp
    .Left = 0.5 * 72
    .Top = SlideHeight& - .Height
  End With
 End Sub

Upvotes: 5

Related Questions