想要在excel中指定位置插入指定图片(当然会有编号对应),用宏如何实现 50

RT求高手急用... RT 求高手 急用 展开
 我来答
docky627
2012-06-12 · TA获得超过222个赞
知道答主
回答量:168
采纳率:0%
帮助的人:66.2万
展开全部
Sub 自动导入图片()
Dim shp As Shape
Dim r As Range
Dim j As Integer '图片导入单元格
Dim k As Integer '图片序列号
Dim s As String '图片名称
Dim PicPath As String '图片所在目录
k = 1 '图片序列号初始编码
Set r = Sheet1.Range("A6000").End(xlUp)
s = InputBox("输入图片名称:" & vbNewLine & "注:不包含其序列号", "提示")
For j = 1 To r.Row '编号指定位置
j = i
PicPath = ThisWorkbook.Path & "\" & s & k & ".jpg"
If Dir(PicPath) <> "" Then
Set shp = Sheet1.Shapes.AddPicture(PicPath, False, True, 0, 0, -1, -1)
shp.Left = Range("B" & j).Left + 20
shp.Top = Range("B" & j).Top + 10
End If
k = k + 1
Next
Set r = Nothing
Set shp = Nothing
End Sub
追问
是否直接运行宏就可以?
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式