返回列表下一主題上一主題發帖

[發問] 如何為shapes 命名

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-1-10 22:58 | 只看該作者

[發問] 如何為shapes 命名

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

樓主熱帖

max

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

5^#

發表於 2012-1-12 14:54 | 只看該作者

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

max

TOP

jarodz

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2011
閱讀權限: 20
性別: 男
註冊時間: 2011-12-13
最後登錄: 2014-7-8

4^#

發表於 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

TOP

user999

中學生 Rank: 2

帖子: 76
主題: 33
精華: 0
積分: 116
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2011-9-29
最後登錄: 2020-8-25

3^#

發表於 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會變動)
可請高手指導一下
謝謝!