VBA-PowerPointのテキスト/フォントによるマクロの影

Question

グラフのデータラベルに影の効果（PowerPointのメニューの上にある影の効果）を使用してテキストを作成しようとしていますが、動作させるには、dataLabels.shadowまたはdataLabels.font.shadowは、テキストではなく、フレームを陰にします。

多くのグーグルでは、TextFormatまたはTextFormat2というプロパティでこれが可能であることが判明しましたが、残念ながらデータラベルのテキストにはアクセスできません。私の現在のコードは、コメントの後の行は動作しません：

For Each Shape In Slide.Shapes 
    If Shape.HasChart Then 

     Dim i As Integer 
     Dim v As Variant 

     Set pts = Shape.Chart.SeriesCollection(1).Points 

     For Each s In Shape.Chart.SeriesCollection 
      v = s.Values 
      If s.Name <> "XXX_XXX" Then 
       If v(pts.Count) >= 0.05 Then 
        s.Select 
        s.Points(pts.Count).Select 
        s.Points(pts.Count).ApplyDataLabels 
        s.DataLabels.Font.Color = s.Border.Color 
        s.DataLabels.Font.Size = 20 
        s.DataLabels.Font.Name = "Calibri" 
        's.DataLabels.Shadow = True 
        's.DataLabels.Font.Shadow = msoTrue 
        's.Points(pts.Count).DataLabel.Font.Shadow = msoTrue 
        's.Points(pts.Count).DataLabel(pts.Count).TextFrame.TextRange.Font.Shadow = msoTrue             
       End If 
      End If 
     Next s 
    End If 
Next Shape 

Answer 1

誰かがsimillar場合に問題があります場合は、私は、データラベルのテキスト/値のための答え:)

シャドー（影のようなリボン）を発見しましたTextRange2のプロパティで行われますが、私はFormatが見つかりませんでした。このように：

Dim tr As TextRange2 
Set tr = s.DataLabels(pts.Count).Format.TextFrame2.TextRange 
With tr.Font.Shadow 
    .OffsetX = 10 
    .OffsetY = 10 
    .Size = 1 
    .Blur = 4 
    .Transparency = 0.5 
    .Visible = True 
End With