[發問] 如何為shapes 命名

user999

如何為shapes 命名 因為 我刪shapes(2).delete後
整個index 會變   ,原先用shapes(index) 對應的秩序會跑掉
所以我要為shapes 命名 指定 刪除shapes
如何做 shapes.item(1).name?????
請教諸位高手 謝謝!

GBKEE

回復 1# user999
Shapes.Item(1).Name = "?????"
Shapes(1).Name = "?????"

user999

回復 2# GBKEE
直接放入可能少東西不行執行!

如附檔

利用excel 表單選圖片 command1 command2 command3 抓三張圖片
問一   假設command2 選2次 會有2張圖片 如何刪除command2的前一張
問二  command4 是把3張圖片帶入word檔 如何把 command1的圖放在word Tables(2).Cell(1, 1).Range.Paste
                                                                                                  command2的圖放在word Tables(2).Cell(1, 2).Range.Paste
                                                                                                  command3的圖放在word Tables(2).Cell(2, 1).Range.Paste
這是目前我碰到問題 shapes 怎麼利用(刪刪減減item會變動)
可請高手指導一下
謝謝!

jarodz

回復 3# user999

應該在一開始create shape時就把name設定好，之後就可以用name來access shape，如下，

        With ActiveSheet.Shapes.AddShape(msoShapeRectangle, xbeg_075, ybeg_075, width_075, height_075)
                .Name = ''你取的名字"
                .Placement = xlFreeFloating
                .Line.Weight = 0
                .Fill.ForeColor.RGB = RGB(255, 255, 255)
        End With
   
Activesheet.shapes(''你取的名字") 就會是你要的shape，
提醒你 shape name 的字數最多只能 31 字。


BR,
Jarod

user999

感謝大家，已解決了，只是同用 .Height = 150 .Width = 150 抓到圖片大小不一,如何大小一致及圖檔的kbye 也一樣.,感激了.