Excel 如何將圖片URL 顯示為圖片
阿新 • • 發佈:2019-02-03
由於公司需要統計根據門店業績和裝修檔次定製扶持政策,所以要到處攜帶門店門頭照片+業績的報表,而資料庫儲存的是圖片的連結。由於後臺統計報表相對應的庫暫時沒有插入圖片的功能。所以通過巨集來完成將Excel中url替換為插入圖片,又為了避免插入圖片太多,導致Excel大小暴增,所以在選擇了對應門店門頭照片連結時才插入圖片。
具體步驟如下:
1、進入對應sheet頁的View Code
- 一種方法:快捷鍵 Alt+F11
- 一種方法:郵件sheet標籤,選擇View Code
2、在編輯處一次選擇 Worksheet SelectionChange
3、然後在對應的時間方法中插入如下程式碼
程式碼功能為,當前選擇的表格內容前七位是http://時,以這個表格內容為圖片連結在改表格處插入圖片。
With Target
If Left(.Value, 7) = "http://" Then '如果單元格內容為網址
'新增網路圖片,並設定為圖片大小位置隨單元格變化而變化
ActiveSheet.Shapes.AddPicture(.Value, msoCTrue, msoCTrue, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
.WrapText = True '單元格設定為自動換行,以隱藏網址
End If
End With