Setting active font properties within a textbox

[crossharu]

Hi,

This is a fairly basic issue which I've been trying to solve on and off for weeks!

I currently have a macro which sets the formatting of selected to a predefined format. This works well but I have been asked to edit it so that you can click the button and then type in the desired format as compared to typing first, selecting that text and then clicking the button.

What am I missing that would allow this?

Many thanks!

[Paul_Hossler]

Without actually seeing the macro, it's a little hard to see what's missing

[crossharu]

Hi Paul - please see below. Thanks

Sub RedStrikethrough()
Dim Text As TextRange2
If ActiveWindow.Selection.Type = ppSelectionText Then
    Set Text = ActiveWindow.Selection.TextRange2
    With Text
        .Words.Font.Fill.ForeColor.RGB = vbRed
        .Words.Font.Strikethrough = msoTrue
    End With
End If
End Suba

[John Wilson]

Not sure I understand how the user will input the required format but be aware you current code will not work if the user selects characters in the word - Only those selected will change. If you need the WORD to change regardless of the selection you wil need more complex code.

Sub RedStrikethrough()

   Dim otr2 As TextRange2
   Dim allText As TextRange2
   Dim L As Long
   If ActiveWindow.Selection.Type = ppSelectionText Then
      Set allText = ActiveWindow.Selection.ShapeRange(1).TextFrame2.TextRange
      Set otr2 = ActiveWindow.Selection.TextRange2
      L = selectedWord(otr2, allText)
      allText.Words(L).Font.Fill.ForeColor.RGB = vbRed
   End If
End Sub


Function selectedWord(otr2 As TextRange2, allText As TextRange2) As Long


Dim L As Long
 For L = 1 To allText.Words.Count
        If otr2.Start < allText.Words(L).Start + allText.Words(L).Length Then
        selectedWord = L
        Exit For
        End If
        Next
End Function

This might need to be even more complex to NEVER fail. It is not clear if the user can select multiple words.

[crossharu]

Thanks for the reply John.

The intention is for the desired format to be pre-defined so there is no need for user input in that regard. In addition, when selecting individual characters/words (or the entire textframe for that matter) my code above functions as desired.

It is only when the cursor is placed at the end of the text with no text selected, for example, and the button is clicked that it does not behave as desired. In this scenario it should set the active font which will be used when typing starts to the pre-defined format (just as the font colour or bold buttons would work, for example) but instead it does nothing.

The code definitely executes and

If ActiveWindow.Selection.Type = ppSelectionText

returns true so that's not the issue but I can't get any further I'm afraid.

Please let me know if I have missed the point of your post!

Thanks

[John Wilson]

I think the only way might be to insert a space set to red and select it., When you type the space would be overwritten. Not elegant but should work.

Sub StartTypinginRed()ActiveWindow.Selection.TextRange2.InsertAfter(" ").Select
ActiveWindow.Selection.TextRange2.Font.Fill.ForeColor.RGB = vbRed
End Sub

[crossharu]

Works well, thanks very much.

Interestingly, when I do the above and then press backspace to delete the inserted space, the formatting persists when I then start typing. However, when I inserted a line after your suggestion (ActiveWindow.Selection.Delete) to do the same, this did not have the desired effect. Presumably this is just an oddity of Powerpoint.

Thanks again.

[John Wilson]

I don't like using SendKeys but see if this works

Sub StartTypinginRed()    
With ActiveWindow.Selection.TextRange2.InsertAfter(" ")
        .Font.Fill.ForeColor.RGB = vbRed
    End With
    SendKeys "({BACKSPACE})"
End Sub

[crossharu]

It works flawlessly even if it isn't that elegant! Thanks a lot, John.