R
Rob
I have an Access2007 application with a rich text formatted database field
and i want to import this field into powerpoint with VBA.
I have tried code like this:
ppApp.ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle,
416.75, 411.75, 262, 90).Select
ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(start:=1, Length:=0).Select
With ppApp.ActiveWindow.Selection.TextRange
.text = rs.Fields("NameOfMyDatabaseField")
End With
This code imports the text field, but just as plain text, showing the rich
text markup.
Then i tried to copy paste the text:
adding .cut within the with and
ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.PasteSpecial
ppPasteRTF
to paste as rich text.
But it still pasts as plain text.
Is there a way to tell powerpoint the text should imported as Rich Text ?
Any help would be much appreciated
and i want to import this field into powerpoint with VBA.
I have tried code like this:
ppApp.ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRectangle,
416.75, 411.75, 262, 90).Select
ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(start:=1, Length:=0).Select
With ppApp.ActiveWindow.Selection.TextRange
.text = rs.Fields("NameOfMyDatabaseField")
End With
This code imports the text field, but just as plain text, showing the rich
text markup.
Then i tried to copy paste the text:
adding .cut within the with and
ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.PasteSpecial
ppPasteRTF
to paste as rich text.
But it still pasts as plain text.
Is there a way to tell powerpoint the text should imported as Rich Text ?
Any help would be much appreciated