如何插入图片

wzd28 · 发表于 2017-3-20 20:03

各位老师：我想在统计表中按照范例在“库存统计明细”中增加图片显示功能，具体见附件“收发货统计表”表中的“库存统计明细”，谢谢！

收发货统计表.part1.rar (488.28 KB, 下载次数: 4)

zjdh · 发表于 2017-3-21 08:51

插入图片.rar (691.41 KB, 下载次数: 18)

wzd28 · 发表于 2017-3-23 21:45

本帖最后由 wzd28 于 2017-3-23 21:48 编辑

zjdh 发表于 2017-3-21 08:51

老师：若要插入几列，原来插入图片的列变动了，需要改动哪个参数？
  Sub 添加图片()
SC
For I = 3 To Range("A65536").End(3).Row
      If Dir(ThisWorkbook.Path & "\图片\" & Cells(I, 1) & ".jpg") <> "" Then
         Set MR = ActiveSheet.Range("M" & I)
         With MR.AddComment
            .Shape.Fill.UserPicture ThisWorkbook.Path & "\图片\" & Cells(I, 1) & ".jpg"
            .Shape.Height = 200
            .Shape.Width = 280
         End With
         With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\图片\" & Cells(I, 1) & ".jpg").ShapeRange
            .LockAspectRatio = msoFalse
            .Top = MR.Top
            .Left = MR.Left + 1
            .Height = MR.Height
            .Width = MR.Width - 1
         End With
      End If
Next
End Sub
Sub SC()
Range("M:M").ClearComments
For Each shp In ActiveSheet.Shapes
      If shp.Type <> 8 Then shp.Delete
Next
End Sub

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

如何插入图片

相关帖子