Lines Matching refs:aShape
731 Sub Analyze_OLEEmbeddedSingleShape(docAnalysis As DocumentAnalysis, aShape As Shape, mySubLocation …
742 bOleObject = (aShape.Type = msoEmbeddedOLEObject) Or _
743 (aShape.Type = msoLinkedOLEObject) Or _
744 (aShape.Type = msoOLEControlObject)
748 aShape.Select
749 Select Case aShape.Type
779 .Line = aShape.top
780 .column = aShape.Left
782 If aShape.name <> "" Then
784 .Values.Add aShape.name
787 If aShape.Type = msoEmbeddedOLEObject Or _
788 aShape.Type = msoOLEControlObject Then
792 objType = getAppSpecificOLEClassType(aShape)
798 If aShape.Type = msoOLEControlObject Then
806 objName = aShape.OLEFormat.Object.name
808 If aShape.name <> objName Then
815 If Not (aShape.OLEFormat.Object) Is Nothing Then
816 objName = aShape.OLEFormat.Object.name
818 If aShape.name <> objName Then
829 If aShape.Type = msoLinkedOLEObject Then
833 path = aShape.OLEFormat.Object.SourceFullName
841 .Values.Add aShape.LinkFormat.SourceFullName