Searched refs:myshape (Results 1 – 1 of 1) sorted by relevance
40 Dim myshape As Shape variable66 For Each myshape In myPrepInfo.HF_Shapes67 If myshape.Type = msoPicture Then68 If myshape.RelativeVerticalPosition <> wdRelativeVerticalPositionPage Then69 … shapetop(I) = myshape.top + myshape.Anchor.Information(wdVerticalPositionRelativeToPage)71 shapetop(I) = myshape.top73 ElseIf myshape.Type = msoTextBox Then74 myshape.TextFrame.TextRange.Select79 Next myshape106 For Each myshape In myPrepInfo.HF_Shapes[all …]