Solved

Cycle through shapes

Posted on 2006-11-09
10
196 Views
Last Modified: 2010-04-30
What's wrong here...?

For Each Shp In PPPres.Slides(1).Shapes
  MsgBox Shp.Name & Shp.Type
Next
0
Comment
Question by:UINVDJM
  • 4
  • 3
  • 3
10 Comments
 
LVL 35

Accepted Solution

by:
mvidas earned 500 total points
ID: 17906832
Seems ok.. is it throwing any errors at you?
You could try checking to see if the .shapes.count>0

Since you're running this from excel, have you tried Dim'ming the Shp as Powerpoint.Shape? Maybe you just used Shape and the excel.shape <> powerpoint.shape ?

Just a thought
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 17906896
Nothing in itself. Why do you think that there might be?
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 17906909
Maybe you have 'Option Explicit' missing
0
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 11

Author Comment

by:UINVDJM
ID: 17906977
Bang on again Matt...

"Shp as Powerpoint.Shape"

I just had "Shape" as you say.
0
 
LVL 35

Expert Comment

by:mvidas
ID: 17907032
Glad to help, again!  Now will you stop asking 500 point questions that only take a minute to answer :)
0
 
LVL 11

Author Comment

by:UINVDJM
ID: 17907052
It says difficult or urgent...I have nothing else to do and to save me being bored I classify them as urgent! :)

Anyway. All done now! No more points today!
0
 
LVL 35

Expert Comment

by:mvidas
ID: 17907114
LOL, we'll be here when you need us :)
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 17907157
It takes more than that to answer if the question is incomplete.
0
 
LVL 11

Author Comment

by:UINVDJM
ID: 17907216
Graham, yes I realise that. I tried to keep the question concise.
If I'd known the answer I probably could have written the question far better. Credit to Matt for second-guessing me.

My sincere apologies.
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 17907645
OK Darren, your graceful apologies certainly accepted on behalf of anyone who would have been confused.

For your guidance, if you get an error message, tell us what it is and where you get it. In your case, I guess it was: "Run time error 438, Property doesn't support this property or method".

In this case, the context would also have been useful: that you were using early binding to connect to PowerPoint in an Excel macro.  Correct that; it was essential.

I see that Matt had already answered several of  questions on your project, so was in a position to realise what was happening.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question