Searched refs:myShape (Results 1 – 3 of 3) sorted by relevance
271 Dim myShape As Shape279 For Each myShape In mySlide.Shapes280 If myShape.HasTextFrame Then281 If myShape.TextFrame.HasText Then282 curDefault = myShape.TextFrame.Ruler.TabStops.DefaultSpacing295 Next myShape315 .Line = myShape.top316 .column = myShape.Left319 .Values.Add myShape.name370 .Line = myShape.top[all …]
859 Sub Analyze_Lines(docAnalysis As DocumentAnalysis, myShape As Shape, mySubLocation As Variant)864 If myShape.Line.Style = msoLineSingle Or _865 myShape.Line.Style = msoLineStyleMixed Then Exit Sub881 .Line = myShape.top882 .column = myShape.Left884 If myShape.name <> "" Then886 .Values.Add myShape.name906 Sub Analyze_Transparency(docAnalysis As DocumentAnalysis, myShape As Shape, mySubLocation As Varian…911 If Not myShape.Type = msoPicture Then Exit Sub917 If myShape.PictureFormat.TransparentBackground = msoTrue Then[all …]
29 Dim myShape As Shape variable32 For Each myShape In aSheet.Shapes33 If myShape.Type = msoTextBox Then34 myShape.Select40 Next myShape