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

laith93 · 12-05-2023, 04:55 AM

Quote:

Originally Posted by JohnWilson

Did you select a shape?

No, I don't want to select the shape
I want just select the slide and run the code.
However, Mr. Jhon, I think the problem is with my file, because I made a new file and run your previous code and works perfectly

Code:

Sub ChangeDimensionsOfSecondShape()
    Dim osld As Slide
    Dim shapeIndex As Integer
    Dim newWidth As Integer
    Dim newHeight As Integer
    'Edit mode only!
    ' Set the new dimensions
    newWidth = 100
    newHeight = 50
'set osld to currenht slide
Set osld = ActiveWindow.Selection.SlideRange(1)
        ' Check if there are at least two shapes on the slide
        If osld.Shapes.Count >= 2 Then
            ' Get the second shape on the slide
            shapeIndex = 2 ' Change this index if the second shape is not the desired one
            With osld.Shapes(shapeIndex)
                ' Change the dimensions of the shape
                .Width = 930
                .Height = 428
                .Left = 15
                .Top = 77
            End With
        End If
End Sub

Thanks