[發問] Excel VBA Picture比大小刪除

yenwang

目前正在寫作的Excel VBA中碰到一個問題
每個分頁裡頭有超過2張的Picture
檔名是隨機的，Picture XXXX

想問說怎樣的程式，可以讓分頁自己去比較圖片的尺寸大小
並只保留最大的那一張，其餘都刪除

只要能夠搞定一張分頁，其餘用Loop方式就可以解決了
想問看看板上的高手能不能替我解答
感恩
thank you!

bobomi

Sub Q_9822003045()

Dim obj(1)

If Pictures.Count <= 1 Then Exit Sub
Set obj(1) = Pictures(1)
For Each obj(0) In Pictures
  If (obj(0).Width * obj(0).Height) > _
     (obj(1).Width * obj(1).Height) Then
      Set obj(1) = obj(0)
  End If
Next

For Each obj(0) In Pictures
  If obj(0).Name <> obj(1).Name Then
     obj(0).Delete
  End If
Next

End Sub

yenwang

回復 2# bobomi


謝謝妳的回覆

可以跟你要檔案瞧瞧嗎?

我複製成程式碼後，總會有錯誤的訊息發生><