Ms forms grouped, on a slide

  • Thread starter Thread starter kingyeti
  • Start date Start date
K

kingyeti

Halo
I work with PPT97
How can i reach the name of the ms forms that I have
grouped on a slide
Maybe I find a way with VBE
I can have the name of the slide and the name of the
module I have created with that

for i = 1 to application.VBE.VBProject
(1).VBComponents.count
msgbox application.VBE.VBProject(1).VBComponents(i).name
next

maybe with :
for each lstbx in application.VBE.VBproject(1).....
But I didn't find
If somebody can help me, thanks
 
Here is an example of getting reference to an activex control within a
group.
' ----- Beginning Of Code -----
Sub GetTextBoxRef()
'Declare an object variable to store the reference
Dim otxtBox As TextBox ' MS Forms textbox
Dim oGrpShape As Shape 'the activex control shape within the group
' Get a reference to the activex control shape within the group.
Set oGrpShape = ActivePresentation.Slides(1).Shapes(1).GroupItems(1)
' Get a reference to the text box control
Set otxtBox = oGrpShape.OLEFormat.Object
' Now manipulate it's properties
With otxtBox
.Text = "We can now control the text box"
.SpecialEffect = fmSpecialEffectRaised
End With
End Sub
' ----- End Of Code -----

--
Regards
Shyam Pillai

Image Importer Wizard
http://www.mvps.org/skp/iiw.htm
 
I try tomorrow
Thank you very much, now I can finish my work , It was my
big problem
Best regards KY
 
Back
Top