求助 Excel将单元格内的url批量转化为图片格式代码

wen9717

需求：新增多条件判断“https”，不论遇到是http或者htpps开头的图片网址，可正常加载图片，然而调整后https的图片仍然无法加载，辛苦大神帮忙看下这样修改是否正确？
If Left(rng.Value, 7) = "http://" or  Left(rng.Value, 7) = "https://"  Then '如果单元格内容为网址

原代码
Sub loadimage()
Dim ranTotal As Range, rng As Range, imageRng As Range '设定三个Range变量
Set rngTotal = Range("c:c") '选中存放网址的o列
For Each rng In rngTotal '遍历所有的o列单元格
If Left(rng.Value, 7) = "http://" Then '如果单元格内容为网址
Set imageRng = rng.Offset(, 1) '存放图片的地址
With ActiveSheet.Pictures.Insert(rng.Value)
If .Height / .Width > imageRng.Height / imageRng.Width Then '判断图片纵横比与单元格纵横比的比值以确定针对单元格缩放的比例
.Top = imageRng.Top
.Left = imageRng.Left + (imageRng.Width - .Width * imageRng.Height / .Height) / 2
.Width = .Width * imageRng.Height / .Height
.Height = imageRng.Height
Else
.Left = imageRng.Left
.Top = imageRng.Top + (imageRng.Height - .Height * imageRng.Width / .Width) / 2
.Height = .Height * imageRng.Width / .Width
.Width = imageRng.Width
End If
End With
End If
Next
End Sub



调整后的代码：
Sub loadimage()
Dim ranTotal As Range, rng As Range, imageRng As Range '设定三个Range变量
Set rngTotal = Range("c:c") '选中存放网址的o列
For Each rng In rngTotal '遍历所有的o列单元格
If Left(rng.Value, 7) = "http://" or  Left(rng.Value, 7) = "https://"  Then '如果单元格内容为网址
Set imageRng = rng.Offset(, 1) '存放图片的地址
With ActiveSheet.Pictures.Insert(rng.Value)
If .Height / .Width > imageRng.Height / imageRng.Width Then '判断图片纵横比与单元格纵横比的比值以确定针对单元格缩放的比例
.Top = imageRng.Top
.Left = imageRng.Left + (imageRng.Width - .Width * imageRng.Height / .Height) / 2
.Width = .Width * imageRng.Height / .Height
.Height = imageRng.Height
Else
.Left = imageRng.Left
.Top = imageRng.Top + (imageRng.Height - .Height * imageRng.Width / .Width) / 2
.Height = .Height * imageRng.Width / .Width
.Width = imageRng.Width
End If
End With
End If
Next
End Sub

wokai1025

第二个条件长度错了啊，应该是8吧

wen9717

wokai1025 发表于 2022-1-19 16:51
第二个条件长度错了啊，应该是8吧

牛，已解决，感谢