图片链接转变为图片？

小葵1124 · 发表于 2019-7-15 15:06

怎么把图片的链接转换成图片放在B列？

lsdongjh · 发表于 2019-7-15 15:29

Sub Test()
Dim SH As Worksheet
Dim rgArea As Range, rg As Range, rg2 As Range
Dim strFileName As String
Dim sngLeft As Single, sngTop As Single
Dim sngWidth As Single, sngHeight As Single
Dim shPic As Shape
Set SH = Sheets("Sheet1")
Set rgArea = SH.Range("A2:A12")
For Each rg In rgArea
strFileName = rg.Text
Set rg2 = rg.Offset(0, 1)
sngLeft = rg2.Left
sngTop = rg2.Top
sngWidth = rg2.Width
sngHeight = rg2.Height
Set shPic = SH.Shapes.AddPicture(strFileName, msoFalse, msoTrue, sngLeft, sngTop, sngWidth, sngHeight)
Next
MsgBox "OK"
End Sub

复制代码

小葵1124 · 发表于 2019-7-15 15:33

有人吗？~~~~

小葵1124 · 发表于 2019-7-15 15:38

这个可以用VBA实现吗？

changhong8 · 发表于 2019-7-15 15:39

可以，直接插入图片或者下载后插入都可以

cp121ok · 发表于 2019-7-15 15:44

请测试！满意的话记得送朵小花！

问题描述.zip (102.96 KB, 下载次数: 518)

小葵1124 · 发表于 2019-7-15 15:50

cp121ok 发表于 2019-7-15 15:44
请测试！满意的话记得送朵小花！

谢谢大神很好用

小葵1124 · 发表于 2019-7-15 16:02

小葵1124 发表于 2019-7-15 15:50
谢谢大神很好用

大神这个有办法能速度快一点吗，数据量实际会更多，感觉每转换一张图片，就跳出一个框，速度有点慢

cp121ok · 发表于 2019-7-15 16:34

小葵1124 发表于 2019-7-15 16:02
大神这个有办法能速度快一点吗，数据量实际会更多，感觉每转换一张图片，就跳出一个框，速度有点慢

我目前没有什么更好的办法优化速度。。。。。。。。。

小葵1124 · 发表于 2019-7-15 16:58

lsdongjh 发表于 2019-7-15 15:29

谢谢大神前面没看到你的回答不好意思，今天评分没有了明天我补上谢谢~

		自动登录	找回密码
密码			免费注册

[求助] 图片链接转变为图片？