#1
|
|||
|
|||
Move Picture by picture name, rename picture by picture name
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) 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 |
#2
|
|||
|
|||
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 "Points Conversions" Last edited by JohnWilson; 04-18-2012 at 02:03 AM. |
#3
|
|||
|
|||
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 |