如何在每个人的名字后面插入其照片

定敏

现有一系列人员及其照片，如何将每个人的照片插入或名字后面的列中，如图，谢谢

新建文件夹.zip (160.75 KB, 下载次数: 17)

2018-9-15 09:25 上传

点击文件名下载附件

蓝桥玄霜

建议搜索插入图片的帖子，有很多。

jiminyanyan

可以搜索一下．．．．．

定敏

朱荣兴 发表于 2018-9-15 09:54
插入图片的帖子我的主题里面就有，但是，把图片插入到这么小的单元格内有何意义？？？

为了方便打印明白卡引用，不知可不可以实现？

定敏

蓝桥玄霜 发表于 2018-9-15 09:32
建议搜索插入图片的帖子，有很多。

我试了套用别人的贴子的代码，可就不能用，提示：运行时错误，不能设置类range的rowHeight等。比如这个：
Sub test()
  Dim r%, i%
  Dim arr, brr
  Dim mypath$, myname$
  mypath = ThisWorkbook.Path & "\相片\"
  With Worksheets("sheet1")
    r = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("a1:a" & r)
    .Pictures.Delete
    For i = 2 To UBound(arr)
      If Dir(mypath & arr(i, 1) & ".jpg") <> "" Then
        With .Pictures.Insert(mypath & arr(i, 1) & ".jpg")
          .Name = "p" & i
          .Top = Cells(i, 2).Top
          .Left = Cells(i, 2).Left
          Rows(i).RowHeight = .Height
          Columns(2).ColumnWidth = .Width
        End With
      End If
    Next
  End With
End Sub

在运行到倒数第六行时就停止了，出现了那个提示。

定敏

朱荣兴 发表于 2018-9-15 10:44
要打印卡片的话，根本不需要把照片插入到单元格内，直接代码调用图片到相应位置即可，
我的主题里面分享 ...

好的，谢谢版主。

定敏

朱荣兴 发表于 2018-9-15 10:53
Sub 插入照片()
Application.ScreenUpdating = False
Dim x, k, m, f As Integer

麻烦您给一下这个帖子的地址吗？我想按图索骥地学学，谢谢。