如何在PowerPoint 2016表格单元格中嵌入图像？

Question

我想创建一个7列×5行的JPG图像PowerPoint幻灯片表。

如果我在PowerPoint中创建一个表并从JPG文件插入一个对象，图像将浮动在表上。

有没有办法将图像放入PowerPoint 2016中的表格单元格？

Answer 1

如果图像与您要填充的单元格具有相同的纵横比，或者如果您不介意在纵横比不匹配时图像变形，请使用图片填充单元格。

Sub TestIt()

    Dim oTbl As Table
    Set oTbl = ActivePresentation.Slides(1).Shapes(3).Table
    Call FillCellWithPicture(oTbl, 4, 2, "c:\temp\picture.jpg")

End Sub

Sub FillCellWithPicture(oTable As Table, lCol As Long, lRow As Long, sPicture As String)
    oTable.Cell(lRow, lCol).Shape.Fill.UserPicture (sPicture)
End Sub