Dim x As Double, y As Double, Shift As Long, b As Boolean, doc As Document Dim sel1 As Shape, sel2 As Shape, s1 As Shape, s2 As Shape Set doc = ActiveDocument b = False While Not b b = doc.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross) Set sel1 = doc.ActivePage.SelectShapesAtPoint(x, y, False) If sel1.Shapes.Count > 0 Then Set s1 = sel1.Shapes.Last doc.ClearSelection s1.AddToSelection End If b = doc.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross) Set sel2 = doc.ActivePage.SelectShapesAtPoint(x, y, False) If sel2.Shapes.Count > 0 Then Set s2 = sel2.Shapes.Last doc.ClearSelection s2.AddToSelection End If s1.AlignToShape cdrAlignBottom, s2 s1.AlignToShape cdrAlignRight, s2 Wend
时间: 2024-10-14 06:30:41