Prev: Understanding Text/Background Colors when Creating New Theme Color
Next: Powerpoint 2007 is Making Me Crazy
From: Phil K on 26 Nov 2009 15:14
Thanks Steve .. I tried the short routine and it would give me Picture 4 for
the graphic and if I tried a shape it would give me Rectangle 7. I still get
the error.

"Steve Rindsberg" wrote:

> In article <AD2373E5-ED3E-418D-B2E3-A62E8FBE0FE8(a)microsoft.com>, Phil K wrote:
> > Steve .. The routine gave me Picture 4. I even tried a new rectangular
> > shape and I got the same error. I tried with or without space between
> > Picture 4.
> >
> > David .. Not 100% sure what you mean by Auto shape or control shape. I
> > created a graphic that I would like to disappear when one clicks on the
> > command button, and appear when another command button is clicked. I did
> > select a shape from the AutoShape selections just to try out and i get the
> > same error.
>
> OK, let's try this to answer David's question:
>
> Sub Whatmeye()
> With ActiveWindow.Selection.ShapeRange(1)
> MsgBox .Type
> End With
> End Sub
>
> That'll give you the type of object this is. Let us know what you find out.
>
> > >
> > > That'll give you the name of the shape. Use whatever it says in place of
> > > "Picture4" above.
> > >
> > > >
> > > > I'm trying to make the Shape disappear in VBA. Since it is part of an
> > > > overall VBA program. I can animate it but I need to do using VBA. I am
> > > > using PPT 2003 with Vista
> > > >
> > > > "David Marcovitz" wrote:
> > > >
> > > > > As John and Steve suggested, you might be missing something with the spaces
> > > > > and as John suggested, you might try to use the SetObjectName macro (in
> > > > > Example 8.7) to give it your own name so you are sure exactly what it is.
> > > > > The other problem I could see is if you are really doing all of this on a
> > > > > different slide than Slides(5). Perhaps, you are working with a different
> > > > > slide.
> > > > > --David
> > > > >
> > > > > --
> > > > > David M. Marcovitz
> > > > > Author of _Powerful PowerPoint for Educators_
> > > > > http://www.PowerfulPowerPoint.com/
> > > > > Microsoft PowerPoint MVP
> > > > > Associate Professor, Loyola University Maryland
> > > > >
> > > > > On 11/21/09 5:32 PM, in article
> > > > > 44022dc8-dbbe-4f0a-9bda-42cc18194a86(a)g27g2000yqn.googlegroups.com, "Wayne"
> > > > > <wawilson40(a)gmail.com> wrote:
> > > > >
> > > > > > I am new at VBA and trying to use VBA in powerPoint 2007 in a vista os
> > > > > > to create a quiz. I am reading a set of question into an array of
> > > > > > questions from a file and want to add one question at a time to a text
> > > > > > box. I am using the following code:
> > > > > > ActivePresentation.Slides(5).Shapes("TextBox
> > > > > > 19").TextFrame.TextRange.Text = question(number)
> > > > > >
> > > > > > but I have been getting the following error:
> > > > > >
> > > > > > Run-time error '-2147188160 (80048240)':
> > > > > >
> > > > > > Item TextBox 19 not found in the Shapes collection.
> > > > > >
> > > > > > But when I check the object code using either the selection and
> > > > > > visibility option in powerPoint or the code from example 8 from David
> > > > > > Marcovitz
> > > > > >
> > > > > > Public Sub GetObjectName()
> > > > > > If ActiveWindow.Selection.Type = ppSelectionShapes _
> > > > > > Or ActiveWindow.Selection.Type = ppSelectionText Then
> > > > > > If ActiveWindow.Selection.ShapeRange.Count = 1 Then
> > > > > > MsgBox (ActiveWindow.Selection.ShapeRange.Name)
> > > > > > Else
> > > > > > MsgBox ("You have selected more than one shape.")
> > > > > > End If
> > > > > > Else
> > > > > > MsgBox ("No shapes are selected.")
> > > > > > End If
> > > > > > End Sub
> > > > > >
> > > > > > I get that the object name is TextBox 19.
> > > > > >
> > > > > > Please Help
> > > > >
> > > > >
> > > > > .
> > > > >
> > >
> > >
> > > ==============================
> > > PPT Frequently Asked Questions
> > > http://www.pptfaq.com/
> > >
> > > PPTools add-ins for PowerPoint
> > > http://www.pptools.com/
> > >
> > >
> > > .
> > >
>
>
> ==============================
> PPT Frequently Asked Questions
> http://www.pptfaq.com/
>
> PPTools add-ins for PowerPoint
> http://www.pptools.com/
>
>
> .
>
From: Steve Rindsberg on 26 Nov 2009 22:58
In article <3CFA8CBE-BD34-4136-A262-8AF54525BB78(a)microsoft.com>, Phil K wrote:
> Thanks Steve .. I tried the short routine and it would give me Picture 4 for
> the graphic and if I tried a shape it would give me Rectangle 7.

I'm not sure what shape you mean but let that slide.

But once again, please do this after selecting the picture:

Sub Whatmeye()
With ActiveWindow.Selection.ShapeRange(1)
MsgBox .Type
End With
End Sub

That'll give you the type of object this is. Let us know what you find out.


==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/


From: Phil K on 28 Nov 2009 22:59
I run the routine and all it gave me was Picture 4.

Thanks Steve

phil

"Steve Rindsberg" wrote:

> In article <3CFA8CBE-BD34-4136-A262-8AF54525BB78(a)microsoft.com>, Phil K wrote:
> > Thanks Steve .. I tried the short routine and it would give me Picture 4 for
> > the graphic and if I tried a shape it would give me Rectangle 7.
>
> I'm not sure what shape you mean but let that slide.
>
> But once again, please do this after selecting the picture:
>
> Sub Whatmeye()
> With ActiveWindow.Selection.ShapeRange(1)
> MsgBox .Type
> End With
> End Sub
>
> That'll give you the type of object this is. Let us know what you find out.
>
>
> ==============================
> PPT Frequently Asked Questions
> http://www.pptfaq.com/
>
> PPTools add-ins for PowerPoint
> http://www.pptools.com/
>
>
> .
>
From: Phil K on 28 Nov 2009 23:46
With your help and Dave's book, I was able to do what I wanted to do .. It
was trial and error, but both of your information got me through the
problem..

Steve your little routine was a great help, and Dave one of your answers in
another postings " ActivePresentation.Slides(3).Shapes("Picture 33").Visible
= msoFalse" sure helped ..

Thanks again to both.

Phil

"Phil K" wrote:

> I run the routine and all it gave me was Picture 4.
>
> Thanks Steve
>
> phil
>
> "Steve Rindsberg" wrote:
>
> > In article <3CFA8CBE-BD34-4136-A262-8AF54525BB78(a)microsoft.com>, Phil K wrote:
> > > Thanks Steve .. I tried the short routine and it would give me Picture 4 for
> > > the graphic and if I tried a shape it would give me Rectangle 7.
> >
> > I'm not sure what shape you mean but let that slide.
> >
> > But once again, please do this after selecting the picture:
> >
> > Sub Whatmeye()
> > With ActiveWindow.Selection.ShapeRange(1)
> > MsgBox .Type
> > End With
> > End Sub
> >
> > That'll give you the type of object this is. Let us know what you find out.
> >
> >
> > ==============================
> > PPT Frequently Asked Questions
> > http://www.pptfaq.com/
> >
> > PPTools add-ins for PowerPoint
> > http://www.pptools.com/
> >
> >
> > .
> >
From: David Marcovitz on 30 Nov 2009 10:25
Great. I'm glad you got it working.
--David

On 11/28/09 11:46 PM, in article
8A7D4DEB-F339-412A-BABE-A6BD3A9F535B(a)microsoft.com, "Phil K"
<PhilK(a)discussions.microsoft.com> wrote:

> With your help and Dave's book, I was able to do what I wanted to do .. It
> was trial and error, but both of your information got me through the
> problem..
>
> Steve your little routine was a great help, and Dave one of your answers in
> another postings " ActivePresentation.Slides(3).Shapes("Picture 33").Visible
> = msoFalse" sure helped ..
>
> Thanks again to both.
>
> Phil
>
> "Phil K" wrote:
>
>> I run the routine and all it gave me was Picture 4.
>>
>> Thanks Steve
>>
>> phil
>>
>> "Steve Rindsberg" wrote:
>>
>>> In article <3CFA8CBE-BD34-4136-A262-8AF54525BB78(a)microsoft.com>, Phil K
>>> wrote:
>>>> Thanks Steve .. I tried the short routine and it would give me Picture 4
>>>> for
>>>> the graphic and if I tried a shape it would give me Rectangle 7.
>>>
>>> I'm not sure what shape you mean but let that slide.
>>>
>>> But once again, please do this after selecting the picture:
>>>
>>> Sub Whatmeye()
>>> With ActiveWindow.Selection.ShapeRange(1)
>>> MsgBox .Type
>>> End With
>>> End Sub
>>>
>>> That'll give you the type of object this is. Let us know what you find out.
>>>
>>>
>>> ==============================
>>> PPT Frequently Asked Questions
>>> http://www.pptfaq.com/
>>>
>>> PPTools add-ins for PowerPoint
>>> http://www.pptools.com/
>>>
>>>
>>> .
>>>

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland


First  |  Prev  | 
Pages: 1 2 3
Prev: Understanding Text/Background Colors when Creating New Theme Color
Next: Powerpoint 2007 is Making Me Crazy