返回列表 上一主題 發帖

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

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

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

JS

回復 1# jsleee

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

TOP

回復 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

回復 3# stillfish00

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

JS

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題