標題: [發問] VBA清除圖片問題 [打印本頁]

---

作者: pinkytortoise    時間: 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    時間: 2011-11-3 21:48

在2010運這段無問題, 可否發一下檔上來試試?
For Each I In ActiveSheet.Shapes
    If I.Type = msoPicture Then I.Delete
    Next

---

作者: GBKEE    時間: 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)