Microsoft Office Forums - View Single Post - Move Picture by picture name, rename picture by picture name

JohnWilson · 04-17-2012, 11:03 PM

Try this (not tested)

Code:

Sub TestCode() 
Dim ppte As Object

'Open Existing PPT
Set ppte = CreateObject("PowerPoint.Application")
 
'Do something
With ppte
    .Visible = True
    .Presentations.Open (PathAndFilename) 'include file extension '.ppt'
 
   
    .ActiveWindow.View.GotoSlide 5 ' probably not needed
     .ActivePresentation.Slides(5).Shapes("Picture 32").Delete 'left one
 

    With .ActivePresentation.Slides(5).Shapes("Picture 31")
    .Left = 30
    .Name = "RenameTest"
    End With
End With
 
End Sub

Note the left will be in POINTS if you need cm or inches there is code on our site

"Points Conversions"