請問該如何變更工作表中的圖片索引值？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問該如何變更工作表中的圖片索引值？

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

[發問] 請問該如何變更工作表中的圖片索引值？

大學生 Rank: 4

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

1^# 跳轉到 »

發表於 2014-11-20 20:24 | 顯示全部帖子

回復 3# baconbacons
1. 單一圖片是否有跨儲存格，單一儲存格是否含多張圖片
2. 若無，換個角度去考慮 '取得某儲存格內的圖片' 若有這樣的功能是不是就能達成各種你要的指定圖片和各種操作的需求?

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

大學生 Rank: 4

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

2^#

發表於 2014-11-27 09:22 | 顯示全部帖子

回復 5# baconbacons
若圖片在合併儲存格內

Function GetCellPic(rng As Range) As Object
Dim x
For Each x In ActiveSheet.Shapes
If Not Application.Intersect(x.TopLeftCell.MergeArea, rng) Is Nothing Then
Set GetCellPic = x
End If
Next
End Function

複製代碼

測試:

Sub Test()
Dim oPic As Object
Set oPic = GetCellPic(Range("F4"))
If oPic Is Nothing Then
MsgBox "nothing in this cell."
Else
MsgBox oPic.name
End If
End Sub

複製代碼

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

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

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