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 Then69 … shapetop(I) = myshape.top + myshape.Anchor.Information(wdVerticalPositionRelativeToPage)71 shapetop(I) = myshape.top79 Next myshape106 For Each myshape In myPrepInfo.HF_Shapes107 If myshape.Type = msoPicture Then109 … temptop = myshape.top + myshape.Anchor.Information(wdVerticalPositionRelativeToPage)111 temptop = myshape.top[all …]
Completed in 5 milliseconds