返回列表 上一主題 發帖

[發問] 如何一次過刪除 (直線接點)圖案?

jarodz

帖子
32 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-12-13 
最後登錄
2014-7-8 
1# 跳轉到 »
發表於 2012-1-7 01:23 | 顯示全部帖子
本帖最後由 jarodz 於 2012-1-7 13:07 編輯

可以用
activesheet.shapes.selectall
selection.delete
把這張sheet的shape全部刪除。

TOP

jarodz

帖子
32 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-12-13 
最後登錄
2014-7-8 
2#
發表於 2012-1-7 13:12 | 顯示全部帖子
Dim b As string

b = sheets("Table").Cells(a,2).value

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題