使用宏将图像插入表中（vba powerpoint 2010）

Question

我已经编写了一个vba脚本，它基本上将一个表插入到带有文本＆＃34的幻灯片中;单元格中的示例文本＆＃34;，现在我想根据大小将图像添加到表格的单元格中来自文件夹的表格。

基本上如果是5X3表，则应该从文件夹中取出15张图像并将其排列到具有图像文件名的单元格中。我想要的输出是：

我写的代码是：

Sub NativeTable()
    Dim pptSlide As Slide
    Dim pptShape As Shape     ' code to create table in present slide
    Dim pptPres As presentation
    Dim iRow As Integer
    Dim iColumn As Integer
    Dim oShapeInsideTable As Shape

    Set pptPres = ActivePresentation
    With pptPres
        Set pptSlide = .Slides.Add(.Slides.Count, ppLayoutBlank)
    End With
    With pptSlide.Shapes
         Set pptShape = .AddTable(NumRows:=3, NumColumns:=5, Left:=30, _
                                Top:=110, Width:=660, Height:=320)
    End With
    With pptShape.Table
        For iRow = 1 To .Rows.Count
            For iColumn = 1 To .Columns.Count
                With .Cell(iRow, iColumn).Shape.TextFrame.TextRange
                    .Text = "Sample text in Cell"
                    With .Font
                        .Name = "Verdana"
                        .Size = "14"
                    End With
                End With
            Next iColumn
        Next iRow
    End With
End Sub

那么我怎么能这样做，请帮助我，图像应该可以调整大小（如果可能的话）请帮我这个 这是否可能我已经检查了msdn对象引用，但是没有选项可以在单元格中插入图片

Answer 1

作为单元格背景插入。选择一个单元格＆gt;设计＆gt;阴影＆gt;图片

Answer 2

我参加聚会的时间有点晚了，但是这里有代码以防其他人需要它。只需确保更改括号中的变量以满足您的需求。

PowerPoint.ActivePresentation.Slides(1).Shapes("table_1").Table.Cell(1, 2).Shape.Fill.UserPicture ("location_of_picture_file")