選取特定儲存格範圍內的圖形物件的VBA語法 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 選取特定儲存格範圍內的圖形物件的VBA語法

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

[發問] 選取特定儲存格範圍內的圖形物件的VBA語法

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2020-1-9 13:08 | 顯示全部帖子

回復 2# jsleee
VBA只能從圖片得到其左上角的儲存格
沒辦法"直接"從儲存格得到對應圖片
所以只能自己寫Function用For去找，例如下面這樣

Function GetPicByCell(from_cell As Range) As Picture
For Each pic In ActiveSheet.Pictures
If pic.TopLeftCell.Address = from_cell.Address Then
Set GetPicByCell = pic
Exit Function
End If
Next
Set GetPicByCell = Nothing
End Function

複製代碼

Sub Test1()
Dim pic As Picture
Set pic = GetPicByCell(Cells(32, 2))
If pic Is Nothing Then
MsgBox "找不到圖片"
Else
Debug.Print pic.Width, pic.Height
End If
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

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