這段是我寫的一個過程,我連續調用三次為什麽沒有將圖形連續將LEFT+40隔開,還是重疊了
ActiveSheet.Shapes(3).Rotation = 90
ActiveSheet.Shapes(3).Copy
ActiveSheet.Paste
For ii = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(ii).Left = ActiveSheet.Shapes(3).Left + 550 Then
MsgBox "0000000000"
For i = ActiveSheet.Shapes.Count To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Left = ActiveSheet.Shapes(ActiveSheet.Shapes.Count - 1).Left + 40
ActiveSheet.Shapes(i).Top = 330
Next
Else
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Left = ActiveSheet.Shapes(3).Left + 550
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Top = 330
End If
Next
ActiveSheet.Shapes(3).Select
Selection.ShapeRange.IncrementRotation -90#
999工作表 (version 1).rar(14.07 KB, 下载次数: 4)