Strikethrough in PowerPoint vba

[crossharu]

Hi,

I'm new to this community so I hope I have adhered to all of the rules with this post.

I am trying to create a very crude 'tracked changes' add-in for PowerPoint. The macro would have a keyboard shortcut and button assigned to each of the following functions:

1.) Format selected text as red and strikethrough
2.) Format selected text as black and remove strikethrough
3.) Search document for all text which is red with strikethrough as well as all text which is red only and delete/format as black respectively allowing the user to ignore instances on a case by case basis.

The only problem is that the Font.StrikeThrough property of a TextRange does not appear to be accessible in PowerPoint vba. I have submitted feedback to Microsoft on this but I am hoping someone might be able to suggest a clever way (perhaps utilising excel's Font.StrikeThrough property) to achieve the above attempting to minimise any performance hit of opening another application.

Thanks in advance!

[Paul_Hossler]

Try this -- uses .TextRange2, not .TextRange





Sub ST()
With ActiveWindow.Selection
.TextRange2.Font.Strikethrough = msoTrue
.TextRange2.Font.Fill.ForeColor.RGB = vbRed
End With
End Sub



For ref: http://vba.relief.jp/powerpoint-vba-textrange-textrange2-properties-methods-list/

[crossharu]

Exactly what I was looking for. Many thanks, Paul!

[crossharu]

Paul - I wonder if you might be able to help me further with the below please?

I'm trying to use the below to search for all instances of strikethrough formatted text in a presentation:


For each sld in Application.ActivePresentation.Slides
For each shp in sld.Shapes
If shp.HasTextFrame then
Set txtrng = shp.TextFrame.TextRange2

But apparently TextFrame doesn't support TextRange2 and TextRange doesn't have the strikethrough property that I need.

Any ideas?

Thanks again.

[Paul_Hossler]

Sorry - that's too advanced for me -- I only know the very basics of PP VBA

[crossharu]

No worries Paul. Has anyone else come across this problem?

Thanks.

[John Wilson]

You need to use shp.TextFrame2.Textrange

[crossharu]

Perfect, thanks John.