返回列表 上一主題 發帖

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

idsmchow

帖子
18 
主題
6 
精華
0 
積分
29 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2000 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2011-11-22 
最後登錄
2012-5-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-1-7 00:25 | 顯示全部帖子

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

本帖最後由 idsmchow 於 2012-1-7 00:27 編輯

如題 每一張Sheet都有好多 (直線接點)圖案, 請問好何刪除? (這是Oracle 出來的格式)

另外想請問 (直線接點)圖案, 是否會影響巨集的運作?  因為每當有這些格式出現, 電腦就出現白畫面, 等了很久也沒有反應, 需要強行 ALT+CTR+DEL  colse.

而且 是否會使到 File size 激增?

請問應好何解決問題?

直線接點.rar (452.2 KB)

收藏 分享

idsmchow

帖子
18 
主題
6 
精華
0 
積分
29 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2000 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2011-11-22 
最後登錄
2012-5-18 
2#
發表於 2012-1-7 13:05 | 顯示全部帖子
請問如何修改,一次過刪除多張Sheet -(直線接點). 謝謝!!

Sub test()
    Dim a As Integer, b As Range, eachsht As Worksheet
    For a = 5 To 252
    Set b = Sheets("Table").Cells(a, 2)
    For Each eachsht In Worksheets

    If eachsht.Name = b Then
    eachsht.Shapes.SelectAll
    Selection.Delete
    End If

    Next
    Next
End Sub

TOP

idsmchow

帖子
18 
主題
6 
精華
0 
積分
29 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2000 
閱讀權限
10 
性別
男 
來自
HK 
註冊時間
2011-11-22 
最後登錄
2012-5-18 
3#
發表於 2012-1-9 00:33 | 顯示全部帖子
回復 6# GBKEE


    非常有用, 簡單幾句就能做出效果.  
   非常感謝大家回答:)

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題