返回列表 上一主題 發帖

[發問] VBA清除圖片問題

pinkytortoise

帖子
3 
主題
2 
精華
0 
積分
11 
點名
0  
作業系統
Win 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2011-9-30 
最後登錄
2022-6-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-3 14:13 | 只看該作者

[發問] VBA清除圖片問題

從資料庫叫出一張照片貼到Sheet裡面，開始列印報告。

'插入圖片

    Application.ScreenUpdating = False

    Sheets("檢驗數據").Select
   
    ABC = Sheets("檢驗數據").Range("u13")
   
    Sheets("尺寸檢驗").Select
   
    ActiveSheet.Unprotect
   
    Range("B7").Select

    ActiveSheet.Pictures.Insert(ABC). _
        Select
   
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 190
    Selection.ShapeRange.Width = 205#
    Selection.ShapeRange.Rotation = 0#
   
    Selection.ShapeRange.ScaleWidth 1.35, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.35, msoFalse, msoScaleFromTopLeft
   
    Range("A1").Select
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        
    Sheets("檢驗數據").Select
   
    Range("A1").Select

End Sub

但是，列印完了要把照片刪除 竟然刪不掉是我的語法有問題嗎？
在EXCEL 2003時還正常運作，這兩天換了EXCEL 2010 就清不掉圖片了，害我得手動進入到那Sheet去解開保護工作表來刪除照片。
   
'清除圖面
   
    Sheets("尺寸檢驗").Select
   
    ActiveSheet.Unprotect
   
    For Each I In ActiveSheet.Shapes
    If I.Type = msoPicture Then I.Delete
    Next
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
    Else
   
    End If
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2011-11-3 21:48 | 只看該作者
在2010運這段無問題, 可否發一下檔上來試試?
For Each I In ActiveSheet.Shapes
    If I.Type = msoPicture Then I.Delete
    Next
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2011-11-4 07:57 | 只看該作者
回復 1# pinkytortoise
  1. Sub Ex()
  2.     Sheets("尺寸檢驗").Select
  3.     ActiveSheet.Unprotect
  4.     For Each I In ActiveSheet.Shapes
  5.     If I.Type = msoPicture Then I.Delete
  6.     Next
  7.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  8. End Sub
  9. Sub Ex1()
  10.     With Sheets("尺寸檢驗")
  11.         .Unprotect
  12.         For Each I In .Shapes
  13.             If I.Type = msoPicture Then I.Delete
  14.         Next
  15.         .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  16.     End With
  17. End Sub
複製代碼

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題