How can I add text in a ppt? 1

[iscariot]

I found how add Picture inside a ppt in below thread:
[link ]

http://www.eng-tips.com/viewthread.cfm?qid=330252

[/url]

But I would need also to add a text from a catscript. How can I do this? I tried like below but it does not work:

ppt.ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Test Box"

Thank you.

 

[ferdo]

Hi,

I never thought about this but I've done the other way...I inserted a 2D annotation in CATIA and after that I took the screen capture...

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[iscariot]

You are right, I could do it like you told but it is not exactly what I need. Off course, if no other way than I will proceed as you told.
I would need more control on the ppt in order to make it automatically using the company standard to be sent to our customer.
I want to make it a little bit more complex, with more functionality, but I was stuck just from the beginning with adding a simple text
Should be possible to add a text in a ppt using a catscript?

 

[TiagoFigueiredo]

Is this what you want?

if it is:

PPT = PPT.ActivePresentation
            Dim SlidesCount = PPT.Slides.Count
            Dim oSlide = PPT.Slides.Add(SlidesCount + 1, Powerpoint.PpSlideLayout.ppLayoutTitleOnly)
            With oSlide.Shapes.Item(1).TextFrame.TextRange
                .Text = TextBox1.Text' this is the string that adds the text
                .Font.Name = "Eurostile LT (Headings)"
                .Font.Size = 48
            End With

Tiago Figueiredo
Tooling Engineer

 

[ferdo]

Nice, star from me, I see you like more and more vb.net . 2012?

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[iscariot]

Thank you TiagoFigueiredo, this was exactly what I was looking for .

I updated the intial code with below code inside a catscript:

	uNewS.Layout = 4 '12 means no text / 4 means title only

        With uNewS.Shapes.Item(1).TextFrame.TextRange
            .Text = AnnViewName 'this is the string that adds the text
            .Font.Name = "Eurostile LT (Headings)"
            .Font.Size = 48
        End With

 

[TiagoFigueiredo]

Now I need your help. One of my collegues is trying to do this for NX. wich is very simillar to CATscript.
How do you call PowerPoint?

Tiago Figueiredo
Tooling Engineer

 

[iscariot]

See the link from the initial post:
[link ]

http://www.eng-tips.com/viewthread.cfm?qid=330252

[/url]

For my catscript, I did exactly the same as in the example provided by ferdo.