Move Picture by picture name, rename picture by picture name

CatMan · #1 04-17-2012, 04:02 PM

Hello forum and thanks to all for taking the time to look at this.

I am writing some Excel VBA to control PowerPoint (excel as host). I need to move a picture by its picture name and rename a picture by its picture name, something like this

Code:

ActiveWindow.ShapeRange(1).("Picture 3").left(30)

and

Code:

ActiveWindow.ShapeRange(1).("Picture 4").rename("Picture5")

Here's what I have so far:

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'
 
    'Do some operations (works great)
    .ActiveWindow.View.GotoSlide 5
    .ActivePresentation.Slides(5).Shapes("Picture 32").Delete 'left one
 
    'Do some operations (code does not work)
    .ActiveWindow.Slides(5).Shapes("Picture 31").Left (30) 'run-time error
    .ActivePresentation.Slides(5).Shapes("Picture 31").rename ("RenameTest") 'run-time error.
End With
 
End Sub

This code works in an Excel module.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Powerpoint automatically changing picture size when adding a picture (2010)	One_Life	PowerPoint	7	01-20-2012 06:57 AM
Rotating a picture in a picture box	Cath5000	PowerPoint	1	01-18-2012 03:04 PM
"format picture" - arrows show as no line atop picture	marbeth	Word	3	07-08-2011 02:16 PM
Picture to Text	CraigR	Drawing and Graphics	2	04-12-2011 02:42 PM
Can I insert a picture into a picture ?	alexcalgary	Drawing and Graphics	2	10-16-2010 03:29 PM