下面是代碼,是放到當前打開的excel的sheet1里面的,但是我想 讓別人電腦上也能用這個腳本,該怎么弄呢?
嘗試過保存宏,然后再新的xlsm檔案(啟用宏的作業表) 加載這個宏后,沒有效果,代碼好像也沒進去,
以前沒有怎么用過這些東西,研究了整整一天無果,來社區求助前輩,謝謝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrL
With Target
If Left(.Value, 8) = "https://" And Right(.Value, 3) = "jpg" Then '如果單元格內容為網址
'添加網路圖片，并設定為圖片大小位置隨單元格變化而變化
ActiveSheet.Shapes.AddPicture(.Value, msoCTrue, msoCTrue, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
.WrapText = True '單元格設定為自動換行，以隱藏網址
End If
End With
Exit Sub
ErrL:
MsgBox ("下載圖片出錯")
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/268225.html
標籤：VBA