Microsoft Office Forums - View Single Post - [Solved] Change The Dimensions of Second Shape on the Selected Slide Only

JohnWilson · 12-04-2023, 07:32 AM

The code works fine here but why not just change the selected shape?

Code:

Sub ChangeDimensionsOfSelectedShape()
    Dim oshp   As Shape
    Dim newWidth As Integer
    Dim newHeight As Integer

    ' Set the new dimensions
    newWidth = 100 ' these do nothing
    newHeight = 50 ' these do nothing

    'set osld to currenht slide
    Set oshp = ActiveWindow.Selection.ShapeRange(1)
    With oshp
        ' Change the dimensions of the shape
        .Width = 930
        .Height = 428
        .Left = 15
        .Top = 77
    End With
End Sub