返回列表 上一主題 發帖

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

stillfish00

帖子
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. 若無，換個角度去考慮  '取得某儲存格內的圖片'  若有這樣的功能是不是就能達成各種你要的指定圖片和各種操作的需求?
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
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
若圖片在合併儲存格內
  1. Function GetCellPic(rng As Range) As Object
  2.   Dim x
  3.   
  4.   For Each x In ActiveSheet.Shapes
  5.     If Not Application.Intersect(x.TopLeftCell.MergeArea, rng) Is Nothing Then
  6.       Set GetCellPic = x
  7.     End If
  8.   Next
  9. End Function
複製代碼
測試:
  1. Sub Test()
  2.   Dim oPic As Object
  3.   Set oPic = GetCellPic(Range("F4"))
  4.   
  5.   If oPic Is Nothing Then
  6.     MsgBox "nothing in this cell."
  7.   Else
  8.     MsgBox oPic.name
  9.   End If
  10. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題