返回列表下一主題上一主題發帖

[發問] EXCEL 刪除所有圖片

whirlwind963

小學生 Rank: 1

帖子: 29
主題: 7
精華: 0
積分: 42
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 10
註冊時間: 2012-9-22
最後登錄: 2013-1-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-9-26 15:39 | 顯示全部帖子

[發問] EXCEL 刪除所有圖片

ActiveSheet.Pictures.Delete
這個指令能刪除工作表裡的所有圖片
但是如何做才能不刪掉工作表的bottom呢

樓主熱帖

whirlwind963

小學生 Rank: 1

帖子: 29
主題: 7
精華: 0
積分: 42
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 10
註冊時間: 2012-9-22
最後登錄: 2013-1-9

2^#

發表於 2012-9-26 16:13 | 顯示全部帖子

回復 2# GBKEE

Private Sub CommandButton1_Click()
Macro1
End Sub

Sub Macro1()
Sheets("Sheet1").Select
j = 2
While Cells(j, "C") <> ""
      ActiveSheet.Pictures.Delete
      NN = Cells(j, "C")
      Cells(j, "D").Select
      ActiveSheet.Pictures.Insert( _
      NN). _
      Select
      Selection.ShapeRange.LockAspectRatio = msoTrue
      Selection.ShapeRange.Height = 100#
      Selection.ShapeRange.Width = 100#
      Selection.ShapeRange.Rotation = 0#
      With Selection
      .Placement = xlMoveAndSize
      .PrintObject = True
      End With
j = j + 1
Wend
Range("C2").Select
End Sub
請問我的原始碼是上面的
要怎麼辦才能不刪掉bottom呢

TOP

whirlwind963