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.

JohnWilson · #2 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"

CatMan · #3 04-18-2012, 12:21 PM

Thank you John, your code suggestions for move and rename worked perfectly. As I mentioned I am using Excel VBA to automate PowerPoint so I am writing the code in an Excel module, this has the disadvantage of not prompting me with any kind of syntax/method help. But if write in a PowerPoint module I get lots of syntax/method help so I guess that's the lesson I learned in this thread.

John, I can't thank you enough, you have been a great help. Thanks to all others for reviewing this thread.

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