📅  最后修改于: 2023-12-03 15:07:54.710000             🧑  作者: Mango
在Powerpoint 2010中添加图片主要有两种方式:从文件中插入图片或复制粘贴图片。以下是详细步骤。
可以使用如下代码实现从文件中插入图片:
Sub InsertPictureFromFile()
Dim pic As Shape
Set pic = ActivePresentation.Slides(1).Shapes.AddPicture("C:\Pictures\example.jpg", False, True, 0, 0)
pic.Left = 100
pic.Top = 100
pic.Width = 300
pic.Height = 200
End Sub
可以使用如下代码实现复制粘贴图片:
Sub PastePicture()
ActivePresentation.Slides(1).Shapes.Paste
Dim pic As Shape
Set pic = ActivePresentation.Slides(1).Shapes(ActivePresentation.Slides(1).Shapes.Count)
pic.Left = 100
pic.Top = 100
pic.Width = 300
pic.Height = 200
End Sub
以上就是在Powerpoint 2010中将图片添加到幻灯片的方法及相关代码片段。