[算表] VB 相對路徑的問題
軟體: EXCEL 2010
版本:
請問各位VB大師
若EXCEL的巨集中 要依照 A1儲存格 名稱來貼圖片至 B10儲存格 (參考下面程式碼)
【問題1】路徑問題
若圖片的絕對路徑在"Z:\123\"
EXCEL檔案在Z槽下
請問相對路徑該怎麼修改?
【問題2】若圖片名稱是PIC.jpg(副檔名)
程式要如何修改，A1儲存格可以不用加附檔名(A1儲存格打pic即可抓到)
謝謝
Sub 抓照片()
If (Len(Range("A1")) > 0) Then
Range("B10").Select
ActiveSheet.Pictures.Insert( _
"相對路徑" & Range("A1")).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 80
Selection.ShapeRange.Width = 85#
Selection.ShapeRange.Rotation = 0#
MsgBox ("照片匯入完成")
Else
MsgBox ("無圖片")
End If
End Sub
---
--
亞里斯多德的論品德
對長輩謙恭是本分；對平輩謙遜是和善；
對晚輩謙遜是高貴；對所有人謙遜是安全
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.37.54.118
※ 編輯: lalalahu 來自: 114.37.54.118 (05/28 13:56)
推
05/28 22:50, , 1F
05/28 22:50, 1F
推
05/28 23:53, , 2F
05/28 23:53, 2F
→
05/29 12:01, , 3F
05/29 12:01, 3F
→
01/03 15:07, , 4F
01/03 15:07, 4F
→
01/03 15:08, , 5F
01/03 15:08, 5F
→
01/03 15:09, , 6F
01/03 15:09, 6F
→
01/03 15:09, , 7F
01/03 15:09, 7F
→
01/03 15:10, , 8F
01/03 15:10, 8F
→
01/03 15:10, , 9F
01/03 15:10, 9F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
11
38