VBA将每个Excel单元格作为Powerpoint中的项目符号点

Question

我正在尝试在一系列单元格中获取信息，并将每个单元格显示为PowerPoint中的项目符号。

例如

单元格A1 =我的示例文本1
单元格A2 =我的示例文本2
单元格A3 =我的示例文本3

我希望每个人都这样在powerpoint中被弹。

• 我的示例文本1
• 我的示例文本2
• 我的示例文本3

我要讲的要点是单元格的数量是动态的，有时我会有3个，有时我可能有5个，等等，这就是为什么我使用CurrentRegion的原因。

这是我到目前为止所拥有的

Range("A1").CurrentRegion.Copy
For Each Cell In Range("A1").CurrentRegion.Cells
ppSlide.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
        Left:=400, _
        Top:=150, _
        Width:=350, _
            Height:=50).TextFrame.TextRange.Paste
ppSlide.Shapes(1).TextFrame.TextRange.Paste.ParagraphFormat.Bullet.Type = ppBulletUnnumbered

Next Cell

关于为什么这可能不起作用的任何想法？

Answer 1

将“单元格”声明为范围对象，如果尚未添加，则添加如下内容：

Dim Cell As Range
Dim cellvalue As String

'{loop} 
For Each Cell in Range("A1").CurrentRegion
    cellvalue = Cell.Value
    ppSlide.shapes'.... use cellvalue for bullet
Next
'{end loop}