#1
|
|||
|
|||
Change The Dimensions of Second Shape on the Selected Slide Only
Hi, I made this macro to change the dimension of the second shape in each slide Code:
Sub ChangeDimensionsOfSecondShape() Dim slideIndex As Integer Dim shapeIndex As Integer Dim newWidth As Integer Dim newHeight As Integer ' Set the new dimensions newWidth = 100 newHeight = 50 ' .Height = 428 ' .Width = 930 ' .Left = 15 ' .Top = 77 ' Loop through all slides For slideIndex = 1 To ActivePresentation.Slides.Count ' Check if there are at least two shapes on the slide If ActivePresentation.Slides(slideIndex).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 ActivePresentation.Slides(slideIndex).Shapes(shapeIndex) ' Change the dimensions of the shape .Width = 930 .Height = 428 .Left = 15 .Top = 77 End With End If Next slideIndex End Sub Thanks |
Tags |
powe |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to change the internal wall dimensions for T room | mummy | Visio | 0 | 06-15-2017 09:23 PM |
How to change size / shape of a shape in a stencil | tomgoodell | Visio | 1 | 06-30-2016 04:40 AM |
Dimensions of a Table Created in Word 2013 Change when saved in Word 2016 | PKW57 | Word Tables | 2 | 05-26-2016 05:15 AM |
Word - Resize image to specified selected cells' dimensions | FaizanRoshan | Word VBA | 7 | 10-18-2015 03:34 PM |
Determine if a shape is selected | Byron Polk | Word VBA | 2 | 08-06-2014 02:26 AM |