返回列表 上一主題 發帖

[發問] 如何為shapes 命名

user999

帖子
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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-1-11 08:11 | 只看該作者
回復 1# user999
Shapes.Item(1).Name = "?????"
Shapes(1).Name = "?????"

TOP

user999

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

test6.rar (15.54 KB)

max

TOP

jarodz

帖子
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

帖子
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

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題