帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-6-27 12:05 | 只看該作者

請問如何把圖片del

Sheet2 有得多圖片想1次過del,但不可以del Sheet2.
請高手指教.

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

jntseng

中學生 Rank: 2

帖子: 38
主題: 12
精華: 0
積分: 122
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: na
註冊時間: 2010-7-31
最後登錄: 2024-5-3

14^#

發表於 2010-8-12 22:37 | 只看該作者

回復 13# Hsieh
謝謝指導,讓我可以多學到許多東西,感恩

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 109
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2010-8-9 23:40 | 只看該作者

回復 12# jntseng
MsoShapeType 列舉
指定一種圖案類型或多種圖案的範圍。
名稱值描述
msoAutoShape 1 快取圖案。
msoCallout 2 圖說文字。
msoCanvas 20 畫布。
msoChart 3 圖表。
msoComment 4 註解。
msoDiagram 21 資料庫圖表。
msoEmbeddedOLEObject 7 內嵌的 OLE 物件。
msoFormControl 8 表單控制項。
msoFreeform 5 手繪多邊形。
msoGroup 6 群組。
msoIgxGraphic 24 IGX 圖形
msoInk 22 筆跡
msoInkComment 23 筆跡註解
msoLine 9 折線圖
msoLinkedOLEObject 10 連結 OLE 物件
msoLinkedPicture 11 連結的圖片
msoMedia 16 媒體
msoOLEControlObject 12 OLE 控制項物件
msoPicture 13 圖片
msoPlaceholder 14 預留位置
msoScriptAnchor 18 指令碼錨點
msoShapeTypeMixed -2 混合圖案類型
msoTable 19 表格
msoTextBox 17 文字方塊
msoTextEffect 15 文字效果

學海無涯_不恥下問

TOP

jntseng

中學生 Rank: 2

帖子: 38
主題: 12
精華: 0
積分: 122
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: na
註冊時間: 2010-7-31
最後登錄: 2024-5-3

12^#

發表於 2010-8-9 23:32 | 只看該作者

回復 9# oobird
可以問msopicture 是什麼東西,所指的意義是什麼呢?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2010-6-29 19:45 | 只看該作者

回復 1# basarasy

Sub Ex()
Sheet2.Pictures.Delete
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2010-6-29 07:33 | 只看該作者

回復 9# basarasy
With Sheet2.DrawingObjects
.Delete
End With

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2010-6-28 22:34 | 只看該作者

本帖最後由 oobird 於 2010-6-28 22:38 編輯

Sub yy()
Dim shp As Shape
For Each shp In Sheet2.Shapes
If shp.Type = msoPicture Then shp.Delete
Next
End Sub
避免誤刪圖片以外的物件！

TOP

basarasy