With .AddLabel(msoTextOrientationHorizontal, TitleLeft, TitleTop, TitleWd, TitleHt).TextFrame
.AutoSize = ppAutoSizeNone
.VerticalAnchor = msoAnchorBottomBaseLine
With .TextRange
With .InsertAfter(PathTxt)
.Font.Size = OptionSz
.Font.Italic = msoFalse
.Font.Name = OptionFontNm
.Font.Color.RGB = Blue
.ParagraphFormat.Alignment = ppAlignRight
End With
End With
End With