Lines Matching refs:myshape
40 Dim myshape As Shape variable
66 For Each myshape In myPrepInfo.HF_Shapes
67 If myshape.Type = msoPicture Then
68 If myshape.RelativeVerticalPosition <> wdRelativeVerticalPositionPage Then
69 … shapetop(I) = myshape.top + myshape.Anchor.Information(wdVerticalPositionRelativeToPage)
71 shapetop(I) = myshape.top
73 ElseIf myshape.Type = msoTextBox Then
74 myshape.TextFrame.TextRange.Select
79 Next myshape
106 For Each myshape In myPrepInfo.HF_Shapes
107 If myshape.Type = msoPicture Then
108 If myshape.RelativeVerticalPosition <> wdRelativeVerticalPositionPage Then
109 … temptop = myshape.top + myshape.Anchor.Information(wdVerticalPositionRelativeToPage)
111 temptop = myshape.top
113 ElseIf myshape.Type = msoTextBox Then
114 myshape.TextFrame.TextRange.Select
125 Selection.HeaderFooter.Shapes(myshape.name).Select
128 Next myshape