Lines Matching refs:myShape
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 Sub
881 .Line = myShape.top
882 .column = myShape.Left
884 If myShape.name <> "" Then
886 .Values.Add myShape.name
906 Sub Analyze_Transparency(docAnalysis As DocumentAnalysis, myShape As Shape, mySubLocation As Varian…
911 If Not myShape.Type = msoPicture Then Exit Sub
917 If myShape.PictureFormat.TransparentBackground = msoTrue Then
940 .Line = myShape.top
941 .column = myShape.Left
943 If myShape.name <> "" Then
945 .Values.Add myShape.name
965 Sub Analyze_Gradients(docAnalysis As DocumentAnalysis, myShape As Shape, mySubLocation As Variant)
970 If myShape.Fill.Type <> msoFillGradient Then Exit Sub
978 If myShape.Fill.PresetGradientType <> msoPresetGradientMixed Then
983 If myShape.Fill.GradientStyle <> msoGradientFromCorner Then
988 If myShape.Fill.GradientStyle <> msoGradientFromCenter Then
1012 .Line = myShape.top
1013 .column = myShape.Left
1015 If myShape.name <> "" Then
1017 .Values.Add myShape.name