Creating Power Point presentation on the fly with VB.NET

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Hi,

I'm creating a power point on the fly using VB.NET. The power point has
10 sheets with approx 500 text boxs in total. The problem I'm having is
performance. On one sheet I'm creating 130 boxs its taking approx 40
seconds to draw. Unfortunatly this is unacceptabe to the end user.

The code I'm using to add and format a text box is as follows:

Can anyone please help ? how can I increase performance ? what options
are open to me using VB.NET to create a powerpoint ?

Thanks,

Sub DrawPPTTextBoxFromControl(ByVal objSlide As PowerPoint.Slide, ByRef
objControl As Control)


Dim objNewObject

objNewObject =
objSlide.Shapes.AddTextbox(Office.MsoTextOrientation.msoTextOrientationHorizontal,
objControl.Left, objControl.Top, objControl.Width, objControl.Height)

With objNewObject.TextFrame
' If blnWordwrap Then
.WordWrap = Office.MsoTriState.msoTrue
' Else
' .WordWrap = Office.MsoTriState.msoFalse
' End If
With .TextRange
If objControl.Text = "" Then
.Text = " "
Else
.Text = objControl.Text
End If
With .ParagraphFormat
' .Alignment
'.SpaceWithin = intParagraphSpacing
' .WordWrap = Office.MsoTriState.msoTrue
' .Bullet = blnBullet
End With
With .Font
.Name = objControl.Font.Name
.Size = objControl.Font.Size
.Bold = objControl.Font.Bold
.Italic = objControl.Font.Italic
.Underline = objControl.Font.Underline

End With
End With
End With
objNewObject.Visible = Office.MsoTriState.msoTrue
objNewObject = Nothing
End Sub

.

Relevant Pages

  • Re: Creating Power Point presentation on the fly with VB.NET
    ... 10 sheets with approx 500 text boxs in total. ... On one sheet I'm creating 130 boxs its taking approx 40 ... Dim objNewObject ...
    (microsoft.public.powerpoint)
  • Re: Circular saw recommendations?
    ... power for all the above. ... While I like it for paneling and plywood, ... Welllll there is the larger and more powerful TS75 and I have that one. ... I bought it to cut sheets down to size. ...
    (rec.woodworking)
  • Re: Best power xstr insulator solution?
    ... This unit has 7 power amplifier circuits utilizing 14 power MOSFETS. ... to check all the output MOSFETs too. ... the sheets pretty much ... thick than the original silicone sheets. ...
    (sci.electronics.repair)
  • PC seems to shutdown unexpectedly but looks on, i.e still has powe
    ... I have a desktop pc approx 5 years old. ... This time however when I looked down at the power button it was still lit ... I tried to reboot it but I couldn't turn it off from the power button ... Could it be my motherboard on the way out or could it be my hard drive? ...
    (microsoft.public.windowsxp.help_and_support)
  • Re: I got scolded today....
    ... We have hooked up a hose to our house during a power ... might be the perfect candidate to have a small windmill erected on your ... line of sheets could be anywhere near as disruptive to the boarder's horse ... These folks have a thick tree line between ...
    (rec.equestrian)