麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 插入圖片問題 [打印本頁]

作者: 路比 時間: 2010-9-2 00:19 標題: 插入圖片問題

想請問一下大家兩個問題
1.
EXCEL是否有公式可以將儲存格名稱的檔案自動插入圖片
如
A1儲存格名稱為 001
圖片存放路徑為 C:\PIC\001.JPG
當A1儲存格為001時，自動插入001.JPG的圖片
當A1儲存格為002時，則自動插入名稱為002.JPG的圖片

2.
如何計算有條件的非空白的儲存格
以COUNTA統計時，無法去做判斷符合條件的數值
如何設定才可以讓當不符合條件A跟B的儲存格可以統計起來

作者: Hsieh 時間: 2010-9-2 00:26

1.涉及插入動作應該採用vba輔助
2.countif就可有條件計數

作者: 路比 時間: 2010-9-2 01:11

本帖最後由路比於 2010-9-2 01:55 編輯

1.涉及插入動作應該採用vba輔助
2.countif就可有條件計數
Hsieh 發表於 2010-9-2 00:26

請問版主
1.是否有案例可以參考，因為目前等級尚無法做搜尋，翻了好幾頁都沒看到
剛剛找了一下，有找到這個範例，目前測試可以抓到圖片，不過如何才可以跳路徑選擇圖片，因為此設定須把圖片與EXCEL放在同一目錄底下才可

Sub ChangeSize()
　　picname = [a1] & ".jpg"　'插入的圖片名稱
　　Mypath = ThisWorkbook.Path & "/"
　　Set MyPic = ActiveSheet.Pictures.Insert(Mypath & picname)
　　With MyPic
　　　　.ShapeRange.LockAspectRatio = msoFalse
　　　　.Left = [b2].Left
　　　　.Top = [b2].Top
　　　　.Width = [b2].Width
　　　　.Height = [b2].Height
　　End With
End Sub

作者: oobird 時間: 2010-9-2 07:59

Mypath = ThisWorkbook.Path & "/"
改為
Mypath = "C:\PIC\"

作者: 路比 時間: 2010-9-2 20:29

Mypath = ThisWorkbook.Path & "/"
改為
Mypath = "C:\PIC\"
oobird 發表於 2010-9-2 07:59

謝謝版主，已經OK了

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)