Excel VB code

[Ranjit kurian]

Hi

I have created a excel vb code to copy the pivots from excel to powerpoint
slide.

The problem iam facing is unable to create a Textbox in the same active
powerpoint slide.

Could you please help me to write a excel vb code in excel to create a text
box, below is the code i tried in excel macro, while running its asking for a
object.

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim slidecount As Long
Dim ans
Dim answer As String
Dim RangetoPaste As Range
Dim PPShape As Shape

ActiveWindow.Selection.SlideRange.Shapes.AddTextboxmsoTextOrientationHorizontal, 50, 50, 400, 24).Select
ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrue

 

[John]

Hi

I have created a excel vb code to copy the pivots from excel to powerpoint
slide.

The problem iam facing is unable to create a Textbox in the same active
powerpoint slide.

Could you please help me to write a excel vb code in excel to create a text
box, below is the code i tried in excel macro, while running its asking for a
object.

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim slidecount As Long
Dim ans
Dim answer As String
Dim RangetoPaste As Range
Dim PPShape As Shape

ActiveWindow.Selection.SlideRange.Shapes.AddTextboxmsoTextOrientationHorizonta
l, 50, 50, 400, 24).Select
ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrue

Ranjit,
It looks like you are replicating your post to every newsgroup. See the
response from Jim and Julie on the main Project newsgroup (i.e. you've
posted to the wrong newsgroup).

John
Project MVP