<div>
 &nbsp; &nbsp;With ActivePresentation.Slides(<wbr />1).Shapes(<wbr />1)<br />
&nbsp; &nbsp; &nbsp; &nbsp; .HasTextFrame = True<br />
&nbsp; &nbsp; &nbsp; &nbsp; .TextFrame.TextRange.Text = &quot;Hello&quot;<br />
&nbsp; &nbsp; End With<br />

</div>


   With ActivePresentation.Slides(1).Shapes(1)
        .HasTextFrame = True
        .TextFrame.TextRange.Text = "Hello"
    End With


<div>
Hi.<br />
First thanks for your reply.<br />
I mean an ActiveX Label from the Toolbox. Not a TextFrame.<br />
The Presentation has no TextFrame. Only 4 Labels.This 4 Label Captions I want set over a Visual-Basic Program.<br />
Thanks<br />

</div>


Hi.
First thanks for your reply.
I mean an ActiveX Label from the Toolbox. Not a TextFrame.
The Presentation has no TextFrame. Only 4 Labels.This 4 Label Captions I want set over a Visual-Basic Program.
Thanks


<div>
BraveNewWorld: <br />
This old question needs to be finalized -- accept an answer, split points, or get a refund. &nbsp;For information on your options, please click here-&gt; <a href="http:/help/closing.jsp#1" rel="ugc">http:/help/closing.jsp#1</a>&nbsp;<br />
Experts: Post your closing recommendations! &nbsp;Who deserves points here?
</div>


BraveNewWorld:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1 [http:/help/closing.jsp#1] 
Experts: Post your closing recommendations!  Who deserves points here?

<div>
Moderator, my recommended disposition is:<br />
<br />
&nbsp; &nbsp; Accept JohnMcCann's comment(s) as an answer.<br />
<br />
DanRollins -- EE database cleanup volunteer
</div>


Moderator, my recommended disposition is:

    Accept JohnMcCann's comment(s) as an answer.

DanRollins -- EE database cleanup volunteer

<div>
<div class="content wysiwyg-content">
Hi and a good evening.<br />
My Question :<br />
How can I set a Label.Caption in a Powerpoint Presentation with a Visual Basic Program?<br />
I have tried this:<br />
Dim Lab1 As Label <br />
Set Lab1 = ActivePresentation.Slides(<wbr />1).Shapes(<wbr />2).OLEForm<wbr />at.Object<br />
With Lab1<br />
.Caption= Text1.Text<br />
End With<br />
Yes sure I have open before the Presentation!<br />
<br />
But it doesn't work.<br />
<br />
Thanks for answer.
</div>
</div>


Hi and a good evening.
My Question :
How can I set a Label.Caption in a Powerpoint Presentation with a Visual Basic Program?
I have tried this:
Dim Lab1 As Label 
Set Lab1 = ActivePresentation.Slides(1).Shapes(2).OLEFormat.Object
With Lab1
.Caption= Text1.Text
End With
Yes sure I have open before the Presentation!

But it doesn't work.

Thanks for answer.

Set Label.Caption in a PowerPoint Presentation

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.