標題: [發問] 如何為shapes 命名 [打印本頁]

---

作者: user999    時間: 2012-1-10 22:58     標題: 如何為shapes 命名

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

---

作者: GBKEE    時間: 2012-1-11 08:11

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

---

作者: user999    時間: 2012-1-11 11:24

回復 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    時間: 2012-1-11 13:15

回復 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    時間: 2012-1-12 14:54

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)