Lines Matching refs:myShape

271     Dim myShape As Shape
279         For Each myShape In mySlide.Shapes
280             If myShape.HasTextFrame Then
281                 If myShape.TextFrame.HasText Then
282                     curDefault = myShape.TextFrame.Ruler.TabStops.DefaultSpacing
295         Next myShape
315         .Line = myShape.top
316         .column = myShape.Left
319         .Values.Add myShape.name
370         .Line = myShape.top
371         .column = myShape.Left
374         .Values.Add myShape.name
544     Dim myShape As Shape
546     For Each myShape In mySlide.Shapes
548         Analyze_Movie mySlide, myShape
549         Analyze_Comments mySlide, myShape
550         Analyze_Background mySlide, myShape
551         Analyze_Numbering mySlide, myShape
553         Analyze_OLEEmbeddedSingleShape mAnalysis, myShape, mySlide.name
554         Analyze_Lines mAnalysis, myShape, mySlide.name
555         Analyze_Transparency mAnalysis, myShape, mySlide.name
556         Analyze_Gradients mAnalysis, myShape, mySlide.name
557     Next myShape
564 Sub Analyze_Numbering(mySlide As Slide, myShape As Shape)
569     If Not myShape.HasTextFrame Then Exit Sub
570     If Not myShape.TextFrame.HasText Then Exit Sub
573     Set shapeText = myShape.TextFrame.TextRange
643         .Line = myShape.top
644         .column = myShape.Left
647         .Values.Add myShape.name
666 Sub Analyze_Background(mySlide As Slide, myShape As Shape)
671     If myShape.Fill.Type <> msoFillBackground Then Exit Sub
689         .Line = myShape.top
690         .column = myShape.Left
693         .Values.Add myShape.name
712 Sub Analyze_Comments(mySlide As Slide, myShape As Shape)
717     If myShape.Type <> msoComment Then Exit Sub
735         .Line = myShape.top
736         .column = myShape.Left
739         .Values.Add myShape.name
741         .Values.Add Replace(myShape.TextFrame.TextRange.Text, strCr, "")
757 Sub Analyze_Movie(mySlide As Slide, myShape As Shape)
762     If myShape.Type <> msoMedia Then Exit Sub
763     If myShape.MediaType <> ppMediaTypeMovie Then Exit Sub
779         .Line = myShape.top
780         .column = myShape.Left
783         .Values.Add myShape.name
785         .Values.Add myShape.LinkFormat.SourceFullName
787 ….Values.Add IIf(myShape.AnimationSettings.PlaySettings.PlayOnEntry, RID_STR_PP_TRUE, RID_STR_PP_FA…
789 ….Values.Add IIf(myShape.AnimationSettings.PlaySettings.LoopUntilStopped, RID_STR_PP_TRUE, RID_STR_…
791 ….Values.Add IIf(myShape.AnimationSettings.PlaySettings.RewindMovie, RID_STR_PP_TRUE, RID_STR_PP_FA…