5 个解决方案
#1
有没有人帮我解决一下啊
#2
就是把excel中图片的路径转换成图片
#3
Sub Test()
On Error Resume Next
Dim Rng As Range
'Rng---存放有路径的单元格,并且图片插入到此处
Set Rng = Sheet1.Range("a1")
With ActiveSheet.Pictures.Insert(Rng.Value)
.ShapeRange.LockAspectRatio = msoFalse '取消纵横比例锁定
.Left = Rng.Left
.Width = Rng.Width
.Top = Rng.Top
.Height = Rng.Height
End With
End Sub
On Error Resume Next
Dim Rng As Range
'Rng---存放有路径的单元格,并且图片插入到此处
Set Rng = Sheet1.Range("a1")
With ActiveSheet.Pictures.Insert(Rng.Value)
.ShapeRange.LockAspectRatio = msoFalse '取消纵横比例锁定
.Left = Rng.Left
.Width = Rng.Width
.Top = Rng.Top
.Height = Rng.Height
End With
End Sub
#4
什么呀
#5
接分先!
#1
有没有人帮我解决一下啊
#2
就是把excel中图片的路径转换成图片
#3
Sub Test()
On Error Resume Next
Dim Rng As Range
'Rng---存放有路径的单元格,并且图片插入到此处
Set Rng = Sheet1.Range("a1")
With ActiveSheet.Pictures.Insert(Rng.Value)
.ShapeRange.LockAspectRatio = msoFalse '取消纵横比例锁定
.Left = Rng.Left
.Width = Rng.Width
.Top = Rng.Top
.Height = Rng.Height
End With
End Sub
On Error Resume Next
Dim Rng As Range
'Rng---存放有路径的单元格,并且图片插入到此处
Set Rng = Sheet1.Range("a1")
With ActiveSheet.Pictures.Insert(Rng.Value)
.ShapeRange.LockAspectRatio = msoFalse '取消纵横比例锁定
.Left = Rng.Left
.Width = Rng.Width
.Top = Rng.Top
.Height = Rng.Height
End With
End Sub
#4
什么呀
#5
接分先!