返回列表 上一主題 發帖

圖案按鈕如何刪除

劉大胃

帖子
63 
主題
8 
精華
0 
積分
122 
點名
0  
作業系統
Windows 2007 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2019-4-16 
最後登錄
2023-3-24 
1# 跳轉到 »
發表於 2021-5-4 10:19 | 顯示全部帖子
For Each shpPicChk In ActiveSheet.Shapes                                              ' 尋找範圍:[T1:V100]內有無圖片(且不為下拉按鈕), 如果有的話, 則刪除.
           If Left(shpPicChk.Name, 4) <> "Drop" Then
              If (shpPicChk.TopLeftCell.Column >= 20 And shpPicChk.TopLeftCell.Column <= 21 And shpPicChk.TopLeftCell.Row >= 1 And shpPicChk.TopLeftCell.Row <= 100) Then
                 shpPicChk.Delete
              End If
           End If
       Next shpPicChk
新手上路，請多包涵。

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題