不知道是不是設置問題只能賞這麽多金幣了,有心的朋友幫一下這代碼咱改一下

w327555162

這段是我寫的一個過程,我連續調用三次為什麽沒有將圖形連續將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)

2011-4-14 08:21 上传

点击文件名下载附件

蓝桥玄霜

1. Sub aaaa()
   
2.     ActiveSheet.Shapes(3).Rotation = 90
   
3.     ActiveSheet.Shapes(3).Copy
   
4.     ActiveSheet.Paste
   
5.     For ii = 3 To ActiveSheet.Shapes.Count
   
6.         ActiveSheet.Shapes(ii).Left = ActiveSheet.Shapes(3).Left + 550
   
7.         ActiveSheet.Shapes(ii).Top = 330
   
8.     Next
   
9. End Sub
   

复制代码

w327555162

回复 蓝桥玄霜 的帖子

藍版還是不行啊,你這樣改不就是讓他重疊啊,我想的效果是如果現有圖形有LEFT值等於ActiveSheet.Shapes(3).Left + 550 的那就在這個圖累加LEFT40循環,如果現有圖形沒有LEFT值等於ActiveSheet.Shapes(3).Left + 550 那就把粘上去的第一個圖形放到這個位置,最好能給我改到附件,萬分感謝,急用

阿童木

语文没学好，看不明白。

w327555162

回复 阿童木 的帖子

上二個圖,第一圖為複制圖形的數據條件,在浮高與工作邊之間的D列數據,第二個圖為圖形排列位置的效果圖,要滿足D列數據變化只需再點一次COM1就OK重新排列圖形

w327555162

自已頂一下

阿童木

我不是帮你写好了？

w327555162

寫在哪,代碼還是附件,沒看到啊