- 帖子
- 181
- 主題
- 5
- 精華
- 0
- 積分
- 197
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2000
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-3-9
- 最後登錄
- 2024-1-20
|
2#
發表於 2014-9-11 20:00
| 只看該作者
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 |
|
