Powerpointで取り消し線、二重取り消し線が入ったテキストの色を変えたい

Question

前提

powerpointの資料修正でvbaを利用しています。

実現したいこと

.pptm資料内の
「取り消し線、二重取り消し線の入っているテキストのカラーを変える」こと。

「アンダーラインの入ったテキストのカラーを変える」のは下記コードでできました。

Sub ChangeColor()
    Dim mySlide As Slide
    Dim shp As Shape
    Dim descenders_list As String
    Dim phrase As String
    Dim x As Long

    For Each mySlide In ActivePresentation.Slides
      For Each shp In mySlide.Shapes
        If shp.HasTextFrame = True Then
         With shp.TextFrame.TextRange
           For x = 1 To Len(.Text)
             If .Characters(x, 1).Font.Underline = -1 Then
               Debug.Print .Characters(x, 1)
             .Characters(x, 1).Font.Color.RGB = RGB(0, 150, 255)
              
             End If
           Next x
         End With
       End If
      Next shp
    Next mySlide
End Sub

上記を応用して取り消し線（と二重取り消し線）の入ったテキスト色を変えたいのですが、

取り消し線はどのプロパティで取得できるのかが
https://learn.microsoft.com/ja-jp/office/client-developer/powerpoint-home?redirectedfrom=MSDN
など参照してもわかりませんでした。

わかりましたらご教授いただけると幸いです。

Answer 1

ChartFont.Strikethrough プロパティ (PowerPoint)
https://learn.microsoft.com/ja-jp/office/vba/api/powerpoint.chartfont.strikethrough