excel,求高手帮我写个宏，按编号插入图片，指定的图片路径是: D盘的“AAA”文件夹，图片后缀
excel,求高手帮我写个宏，按编号插入图片，指定的图片路径是:D盘的“AAA”文件夹，图片后缀:jpg,分辨率是:240x320,当在B列的任意单元格输入图片编号，C列...
excel,求高手帮我写个宏，按编号插入图片，指定的图片路径是: D盘的“AAA”文件夹，图片后缀 : jpg , 分辨率是: 240x320 , 当在B列的任意单元格输入图片编号，C列的同一行显示图片。谢谢！
展开
展开全部
可使用事件自动插入。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "B" And Target.Value <> "" Then
Dim myRange As Range
Set myRange = Target.Offset(0, 1)
ActiveSheet.Pictures.Insert ("D:\AAA\" & Target.Value & ".jpg")
Dim i As Single
i = ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Left = myRange.Left
ActiveSheet.Shapes(i).Top = myRange.Top
ActiveSheet.Shapes(i).Width = myRange.Width
ActiveSheet.Shapes(i).Height = myRange.Height
End If
End Sub
更多追问追答
追问
可行，但是图片的很小，如何在宏里更改图片的尺寸？
追答
本宏设定图片与单元格大小相同。
如果想自己按照想法设定，则可修改如下语句：
ActiveSheet.Shapes(i).Width = myRange.Width
ActiveSheet.Shapes(i).Height = myRange.Height
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
