返回列表 上一主題 發帖

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

jsleee

帖子
151 
主題
25 
精華
0 
積分
194 
點名
1  
作業系統
WINDOWS 10 
軟體版本
Office 2010 或 2021 
閱讀權限
20 
性別
男 
註冊時間
2011-9-6 
最後登錄
2024-11-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2020-1-5 17:31 | 只看該作者

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

您好，有個關於選取特定儲存格範圍內的圖形物件的VBA語法問題請教
我有一個工作表，內含許多照片物件
這些照片物件是透過VBA從別的工作表透過儲存格範圍複製貼上的
但我需要在貼上後，選擇特定的儲存格範圍內的照片進行照片格式化動作
然一直找不到正確的 語法 來選取特定的儲存格範圍內的照片
請先進們指導，感激不盡

JS
收藏 分享

jsleee

帖子
151 
主題
25 
精華
0 
積分
194 
點名
1  
作業系統
WINDOWS 10 
軟體版本
Office 2010 或 2021 
閱讀權限
20 
性別
男 
註冊時間
2011-9-6 
最後登錄
2024-11-8 
4#
發表於 2020-1-9 15:30 | 只看該作者
回復 3# stillfish00

感謝 stillfish00 先進的指點
豁然開朗
謝謝

JS

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2020-1-9 13:08 | 只看該作者
回復 2# jsleee
VBA只能從圖片得到其左上角的儲存格
沒辦法"直接"從儲存格得到對應圖片
所以只能自己寫Function用For去找，例如下面這樣
  1. Function GetPicByCell(from_cell As Range) As Picture
  2.     For Each pic In ActiveSheet.Pictures
  3.         If pic.TopLeftCell.Address = from_cell.Address Then
  4.             Set GetPicByCell = pic
  5.             Exit Function
  6.         End If
  7.     Next
  8.     Set GetPicByCell = Nothing
  9. End Function
複製代碼
  1. Sub Test1()
  2.     Dim pic As Picture
  3.     Set pic = GetPicByCell(Cells(32, 2))
  4.     If pic Is Nothing Then
  5.         MsgBox "找不到圖片"
  6.     Else
  7.         Debug.Print pic.Width, pic.Height
  8.     End If
  9. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

jsleee

帖子
151 
主題
25 
精華
0 
積分
194 
點名
1  
作業系統
WINDOWS 10 
軟體版本
Office 2010 或 2021 
閱讀權限
20 
性別
男 
註冊時間
2011-9-6 
最後登錄
2024-11-8 
2#
發表於 2020-1-6 11:41 | 只看該作者
回復 1# jsleee

因為沒有任何的回覆，可能是我表達的不夠清楚，所以我再換另一種方式來說
我的工作表中有許多的照片物件，排列於儲存格中
如果我想要知道在某一個儲存格內的照片物件的名稱，是否有辦法透過VBA語法取得？
換句話說，我已知道某一儲存格位置內有一個照片物件，有無辦法透過VBA語法取得該照片的名稱或資訊？
因為我要用VBA進行後續的位置調整與格式或動作
希望以上補充有助於大家了解我的問題，也希望有先進可以指點迷津
謝謝
JS

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題