我正在向幻灯片中添加一些形状,并将它们与提供的代码组合在一起。
' Inserting shapes like this
Set sld = Application.ActiveWindow.View.Slide
Set sDesc = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, startX, picStartY, boxWidth, 20)
[...]
' Group shapes together
sld.Shapes.Range(Array(sBox.Name, sLogo.Name, sDesc.Name
我有一个用VB.NET编写的VSTO,并想最大化一个选定的图像到背景。文档告诉我删除旧的形状并使用AddPicture添加新的形状,但是我有一个模板,其中包括已经存在的图像形状,并且AddPicture已经将图像放入其中一个形状中。
为了防止图像落在错误的形状中,我真的只想用调整大小的图像替换原始图像。
这就是我所拥有的:
dim src as PowerPoint.Shape = PowerPoint.Selection.ShapeRange.Item(1)
src.Export(file1, PowerPoint.PpShapeFormat.ppShapeFormatPNG)
dim im