1. 程式人生 > >Excel 如何將圖片URL 顯示為圖片

Excel 如何將圖片URL 顯示為圖片

由於公司需要統計根據門店業績和裝修檔次定製扶持政策,所以要到處攜帶門店門頭照片+業績的報表,而資料庫儲存的是圖片的連結。由於後臺統計報表相對應的庫暫時沒有插入圖片的功能。所以通過巨集來完成將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