註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 選取特定儲存格範圍內的圖形物件的VBA語法
返回列表
下一主題
上一主題
發帖
[發問]
選取特定儲存格範圍內的圖形物件的VBA語法
jsleee
發短消息
加為好友
jsleee
當前離線
UID
6330
帖子
151
主題
25
精華
0
積分
194
金錢
194
點名
0
作業系統
WINDOWS 10
軟體版本
Office 2010 或 2021
閱讀權限
20
性別
男
在線時間
38 小時
註冊時間
2011-9-6
最後登錄
2024-11-8
中學生
帖子
151
主題
25
精華
0
積分
194
點名
0
作業系統
WINDOWS 10
軟體版本
Office 2010 或 2021
閱讀權限
20
性別
男
註冊時間
2011-9-6
最後登錄
2024-11-8
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2020-1-5 17:31
|
只看該作者
[發問]
選取特定儲存格範圍內的圖形物件的VBA語法
您好,有個關於選取特定
儲存格
範圍內的圖形
物件
的VBA語法
問題
請教
我有一個工作表,內含許多照片物件
這些照片物件是透過VBA從別的工作表透過儲存格範圍
複製
貼上
的
但我需要在貼上後,選擇特定的儲存格範圍內的照片進行照片
格式
化動作
然一直找不到正確的 語法 來選取特定的儲存格範圍內的照片
請先進們指導,感激不盡
JS
樓主熱帖
Excel 儲存格自動多重選取問題
有無 PowerPoint內圖片壓縮的程式碼可以分享
如何使用2010版函數產生隨機但不重複的資料
如何透過 VBA語法 開啟專案的密碼
請教關於功能變數問題
word 2010 針對已完成的文件 階層自動編號問
如何計算浮動列數範圍的平均值
透過 Sendkeys 語法開啟有帳號密碼的網頁問
如何判斷區域網路內共用磁碟上的檔案已經被
Excel VBA 取消圖表選取動作 程式碼請教
收藏
分享
jsleee
發短消息
加為好友
jsleee
當前離線
UID
6330
帖子
151
主題
25
精華
0
積分
194
金錢
194
點名
0
作業系統
WINDOWS 10
軟體版本
Office 2010 或 2021
閱讀權限
20
性別
男
在線時間
38 小時
註冊時間
2011-9-6
最後登錄
2024-11-8
中學生
帖子
151
主題
25
精華
0
積分
194
點名
0
作業系統
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
stillfish00
發短消息
加為好友
stillfish00
當前離線
UID
9276
帖子
1018
主題
15
精華
0
積分
1058
金錢
1058
點名
0
作業系統
win7 32bit
軟體版本
Office 2016 64-bit
閱讀權限
50
性別
男
來自
桃園
在線時間
1141 小時
註冊時間
2012-5-9
最後登錄
2022-9-28
大學生
帖子
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去找,例如下面這樣
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
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。
TOP
jsleee
發短消息
加為好友
jsleee
當前離線
UID
6330
帖子
151
主題
25
精華
0
積分
194
金錢
194
點名
0
作業系統
WINDOWS 10
軟體版本
Office 2010 或 2021
閱讀權限
20
性別
男
在線時間
38 小時
註冊時間
2011-9-6
最後登錄
2024-11-8
中學生
帖子
151
主題
25
精華
0
積分
194
點名
0
作業系統
WINDOWS 10
軟體版本
Office 2010 或 2021
閱讀權限
20
性別
男
註冊時間
2011-9-6
最後登錄
2024-11-8
4
#
發表於 2020-1-9 15:30
|
只看該作者
回復
3#
stillfish00
感謝 stillfish00 先進的指點
豁然開朗
謝謝
JS
TOP
靜思自在 :
一個人的快樂.不是因為他擁有得多,而是因為他計較得少。
返回列表
下一主題
上一主題
Word
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲