是否使用VBA更改Powerpoint演示文稿中的照片文件类型？
是的，可以使用VBA更改PowerPoint演示文稿中的照片文件类型。VBA（Visual Basic for Applications）是一种用于自动化任务和定制应用程序的编程语言，可以与Microsoft Office套件中的各种应用程序进行交互。
要更改PowerPoint演示文稿中的照片文件类型，可以使用以下步骤：
- 打开PowerPoint演示文稿，并按下Alt + F11打开VBA编辑器。
- 在VBA编辑器中，选择“插入”菜单，然后选择“模块”以创建一个新的VBA模块。
- 在新的VBA模块中，编写VBA代码来更改照片文件类型。以下是一个示例代码，将演示文稿中的所有照片文件类型更改为JPEG：
Sub ChangePictureFileType()
Dim slide As Slide
Dim shape As Shape
For Each slide In ActivePresentation.Slides
For Each shape In slide.Shapes
If shape.Type = msoPicture Then
shape.Export shape.Name & ".jpg", ppShapeFormatJPG
shape.Delete
slide.Shapes.AddPicture shape.Name & ".jpg", msoFalse, msoTrue, shape.Left, shape.Top, shape.Width, shape.Height
Kill shape.Name & ".jpg"
End If
Next shape
Next slide
End Sub- 运行VBA代码。可以通过按下F5键或在VBA编辑器中点击运行按钮来执行代码。
- 执行完毕后，演示文稿中的所有照片文件类型将被更改为JPEG格式。
这是一个简单的示例，您可以根据需要进行修改和扩展。请注意，VBA代码的执行可能会影响演示文稿的其他部分，因此在运行代码之前最好先备份演示文稿。
关于VBA和PowerPoint的更多信息，您可以参考腾讯云的PowerPoint产品介绍页面：PowerPoint产品介绍。
相关·内容
1回答
我有一个PowerPoint演示文稿，有几十张幻灯片，只有标题格式，但有图像对象。对象通常是(1)一个大图图像，(2)一个小图例图像，(3)另一个小图例图像。这些图像通常尺寸过大，超出了幻灯片的尺寸或相互重叠。我想使用以下步骤清理幻灯片图像：
打开已知文件名的现有pptx (已经知道如何实现)从幻灯片2开始查找幻灯片中的所有图像。确定哪个是最左边的图像。(我被困在这里了)最左边的图像是(1)图形图像。调整这一点，直到它达到6.4“或13”的高度。如果图形图像的高度为6.4“，则将其对齐到最左边的边缘和最顶层的边缘(触摸幻灯片标题文本框)，将图例图像移动到图形图像的右侧边缘附近。对齐它们的顶部边
浏览 7提问于2020-07-17得票数 0
回答已采纳
1回答
查找和使用形状位置Python
python、powerpoint、python-pptx
我试图定位一个形状的位置与特定的文本在其中。在我得到形状的位置后，我想在同一位置添加一个图像，以便在打开时突出显示它在PowerPoint中的位置。以下是我到目前为止所拥有的：
from pptx import Presentation
from pptx.util import Inches, Pt
path_map = 'Path/TO.pptx'
prs = Presentation(path_map)
image_file = 'Path/TO.png'
search_str = 'Jack'
for slide in prs.s
浏览 5提问于2021-02-04得票数 0
1回答
如何以宽屏格式更改powerpoint图片
vba、powerpoint、powerpoint-2010
大家好，我是PowerPoint VBA世界中的一名新手，希望我的英语不会太差:我必须在PowerPoint 2010中解决以下问题:首先，我转换为16:9宽屏格式，然后我通过每个图片，这些图片现在太大，并随尺寸变化-对话框中的图片只有通过点击上下箭头缩放高度。图片的格式将与我之前在4:3演示文稿中使用的格式相同。这很容易，但如果你必须改变100多张图片，那就不容易了。我试了很多次，但都不管用。下面是我的代码：
Sub ChangePictures()
Dim sld As Slide
Dim sh As Shape
Dim meinShHeight As Double
ActivePres
浏览 7提问于2014-02-06得票数 0
2回答
vba shapes.type给出了powerpointvba中的错误
vba、powerpoint
我的代码不起作用。我可能没有使用正确的语法和错误，希望非常容易。
错误说明了类似于错误的对象定义。
SlideNumber = ActiveWindow.Selection.SlideRange.SlideNumber
ShpCount = ActivePresentation.Slides(SlideNumber).Shapes.count
ReDim ShapeItem(1 To ShpCount, 1 To ShpProp)
For Each Shape In ActivePresentation.Slides(SlideNumber).Shapes
'If No
浏览 9提问于2015-08-04得票数 0
回答已采纳
1回答
创建“格式化”PowerPoint幻灯片的C#代码
c#、powerpoint、interop
我正在创建一个小程序，它可以自动创建已经“格式化”的幻灯片，我不能将徽标应用到主幻灯片上，每当我在PowerPoint上单击“创建新幻灯片”时，它就会复制它。
我正在使用Microsoft.Core.Interop.PowerPoint。
这是我的代码：
string logo = @"C:...\Desktop\Logo_base.png";
string[] pwPnt = {
"Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt
浏览 0提问于2020-08-04得票数 1
1回答
以编程方式在PowerPoint中设置文本阴影属性
vba、powerpoint
PowerPoint有两种阴影-形状和文本。形状阴影可以通过右键单击形状(包括文本框)，选择格式文本，然后通过Shadow属性选择Shadow或使用VBA来设置：
For Each Slide In ActivePresentation.Slides
For Each Shape In Slide.Shapes
Shape.Shadow.Size = 100
''# etc
Next
Next
如何使用VBA设置文本阴影的属性？在UI中，可以通过右键单击“文本”，选择“格式文本效果”，然后选择“阴影”来访问这些内容。我在网上做了一些调查，一直无法找到
浏览 2提问于2010-03-22得票数 3
回答已采纳
2回答
PowerPoint 2013中的Shape.Height和Shape.Width问题
vba、powerpoint、office-2013
我正在使用一个小的VBA脚本在后台应用一些文本。该脚本在PowerPoint 2007和PowerPoint 2010上运行良好。
但是，在PowerPoint 2013中，设置Shape.Height和Shape.Width没有任何效果。以下是代码的片段。任何帮助都将不胜感激。
Public Sub applyWatermark()
Dim curDesign As Design
Set curDesign = ActivePresentation.Designs.Item(1)
Dim masterSlide As Master
Set masterSlide = curDesign.S
浏览 2提问于2013-05-14得票数 1
回答已采纳
1回答
在powerpoint interop c#中创建水印
c#、visual-studio-2013、office-interop、powerpoint-2013
我一直在尝试在powerpoint中创建水印，我有一个下面的代码，我可以添加图片，现在我如何创建透明的图片，使它看起来像水印
private void watermark_Click(object sender, RibbonControlEventArgs e)
{
PowerPoint.Application ppApp = Globals.ThisAddIn.Application;
PowerPoint.SlideRange ppslr = ppApp.ActiveWindow.Selection.SlideRange;
//ppApp.ActivePresen
浏览 0提问于2014-11-11得票数 0
1回答
如何使用c#将图像从剪贴板插入或粘贴到具有超链接的电源点
c#、asp.net、ms-office、add-in、office-interop
我正在为power Point开发一个广告，因为我需要从本地磁盘插入一个图像，或者需要使用c#.But将图像从剪贴板粘贴到电源点，我可以在这里完成这两个功能而不添加超链接，但我也需要添加超链接。
用于向PPT插入图片：
slide.Shapes.AddPicture(path, Microsoft.Office.Core.MsoTriState.msoFalse,
Microsoft.Office.Core.MsoTriState.msoTrue, shape.Left, shape.Top, shape.Width, shape.Height);
浏览 2提问于2014-07-21得票数 0
回答已采纳
1回答
使用python在PowerPoint中查找文本并替换为图像？
python、powerpoint、python-pptx
现在，我必须在PowerPoint中的名称旁边添加各种图像/图标，以对应于它们所在的扇区。我发现code是用来查找和替换文本的，但我想查找文本(例如“健康”、“水”等)并替换为相应的图像。有什么直接的方法可以做到这一点吗？下面的代码将“Health”替换为ReplaceList字符串： from pptx import Presentation
ppt = Presentation('Powerpoint.pptx')
TextList = 'Health'
ReplaceList = r'C:\Users\E\Desktop\Icon
浏览 20提问于2019-09-25得票数 0
2回答
如何移除位于特定位置的图片(例如。从每一张PPT幻灯片的右上角
vba、powerpoint、shapes
我有许多powerpoint文件，在每一张幻灯片的右上角都有一张图片。这既不是一个主幻灯片，也不是一个定制的布局形状。
他们一个接一个地贴在所有的幻灯片上。
我有一些代码如下所示，以删除幻灯片中的所有形状(图片)，但是如何在幻灯片的特定位置定位形状(图片)？
For Each Slide In SlideList
Set sldTemp = ActivePresentation.Slides(Slide)
For lngCount = sldTemp.Shapes.Count To 1 Step -1
With sldTemp.Shapes(lngCoun
浏览 2提问于2019-03-26得票数 0
1回答
如何在使用Microsoft.interop以编程方式创建ppt演示文稿时阻止它自动打开？
c#、office-interop
我正在使用office.interop.powerpoint创建一个powerpoint演示文稿。我现在面临的问题是，我创建的这个powerpoint演示文稿首先在前台打开，然后在函数执行过程中添加幻灯片，最后保存文件。
在所有幻灯片被添加到幻灯片之前，我是否可以阻止这个Powerpoint演示文稿的打开。下面是我使用的示例代码：
Application pptApplication = new Application();
Microsoft.Office.Interop.PowerPoint.Slides slides;
Microsoft.Office.Interop.PowerPoi
浏览 2提问于2020-04-17得票数 0
回答已采纳
2回答
在PowerPoint中从VBA的文本框中读取信息
vba、powerpoint
我昨天刚刚发现了VBA，我玩得很开心，但我遇到了一个问题:如何读取文本框的内容。它是幻灯片上唯一的文本框，我希望它能够应用于PowerPoint中的所有幻灯片。请要求我澄清这是否没有意义。
--EDIT--基本上，我想读取文本框的内容，就这么简单。
--EDIT--这是我当前的代码：
Sub answer()
Dim lCurrentView As Long
Dim myInput As String
Dim sld As Slide
Set sld = Application.ActiveWindow.View.Slide
myInput = sld.
浏览 16提问于2014-03-04得票数 0
1回答
python-pptx在布局中更改图片
python、image、layout、powerpoint、python-pptx
我尝试启用自动导入图片，以防止每次手动广告100的图片。我似乎无法访问图片的占位符并将其替换为新图片。一些正确方向的指导会有很大的帮助。
我从下面的代码开始：
import pptx
import pptx.util
from pptx import Presentation
prs = Presentation('prepare_2.pptx')
picture_runs = []
for slide in prs.slides:
for shape in slide.shapes:
if shape.shape_type == 13:
浏览 0提问于2016-05-16得票数 4
1回答
如何从幻灯片中删除图表
c#、powerpoint
我有一个带有一张幻灯片的pptx文件。幻灯片上有一张图表。我想使用C#代码从幻灯片中删除该图表。我编写了一个C#程序来完成它。运行解决方案后，当我打开转换后的pptx文件时，会得到以下错误：
powerpoint删除了test2中不可读的内容
我的C#代码如下所示。
string pptxFileNameTemplate = "D:\\test.pptx";
string pptxFileNameGenerate = "D:\\test2.pptx";
File.Copy(pptxFileNameTemplate, pptxFileNameGenerate
浏览 1提问于2012-05-06得票数 1
2回答
没有选择的格式化图像
vba、powerpoint
我想对幻灯片中的图像执行各种格式选择。
宏运行在我在幻灯片中选择的图像上，但是我想在不选择图像的情况下运行宏。
下面是我当前处理图像的方式(在本例中，是将图像与幻灯片的水平中心对齐)以及正在寻找帮助替换的代码：
With ActiveWindow.Selection.ShapeRange
.Align (msoAlignCenters), msoTrue
End With
到目前为止，以下是整个代码体：
Sub TestCenterImage()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.
浏览 0提问于2014-03-22得票数 0
回答已采纳
2回答
如何用适当的文本缩进从smartart中提取文本？
c#、interop、powerpoint
我必须将智能艺术转换为文本视图，就像“转换为文本”丝带的作品在第一张图片下面突出显示一样。到目前为止，我能够从智能艺术中提取文本，并将其写成一个形状。但我发现了下面的问题。
无法对文本进行缩进
删除智能艺术形状后，它向幻灯片添加一个空白形状。
下面是我的代码
私有ChangeSmartartToText(ref PresentationEXT textDeck，string deckType) { PPT.Slide幻灯片= PPT.Shape tempSmartShape = null；foreach (Microsoft.Office.Interop.PowerPoint.Shap
浏览 1提问于2016-05-18得票数 0
3回答
使用VBA根据名称在底部对齐所有形状(Powerpoint)
vba、alignment、powerpoint
我在PowerPoint (Office360)上使用VBA对齐形状时遇到问题。 我知道我可以使用.Shapes.Range.Align msoAlignBottom，msoFalse，但我不知道如何让它与特定的形状名称一起工作，因为我总是有错误或什么都没有发生。 这是我想用来实现此操作的代码： Sub FixFitToShape()
Dim oSl As Slide
Dim sn As String
Dim oSh As Shape
sn = InputBox("Enter the name of the shape")
浏览 63提问于2021-08-06得票数 0
回答已采纳
1回答
VBA-PPT更改超链接的颜色
vba、colors、hyperlink、powerpoint
我正在尝试更改PowerPoint中所有超链接的颜色。
这是我的第一次尝试：
Sub ChangeShapeColor()
Dim oHl As Hyperlinks
Dim oSl As Slide
' Look at each slide in the current presentation:
For Each oSl In ActivePresentation.Slides
' Look at each shape on each slide:
For Each oHl In oSl.Shapes
' IF the sha
浏览 1提问于2017-11-30得票数 1
2回答
在Powerpoint 2013中使用VBA更改幻灯片元素的颜色
vba、powerpoint、powerpoint-2013
我有一个150张幻灯片的powerpoint演示文稿，由于公司重塑品牌的努力，我想修改一下。我们以前的绿松石颜色已经用于文本，线条，形状和形状填充。我想构建一个VBA脚本，它运行在整个演示文稿中，并一举修改所有幻灯片，并用我们新的深灰色取代这个蓝色。
旧的公司颜色是RGB(0,176,240) -绿松石
新的公司颜色是RGB(71，67，65) -深灰色
我在互联网上尝试了许多不同的vba，但都不能正常工作。这是一个典型幻灯片的屏幕截图，从旧的颜色-所有的蓝色项目应更改为深灰色：
这段来自一位有帮助的论坛成员的VBA代码在形状填充方面工作得非常好-如果这段代码可以重新工作，包括任何文
浏览 22提问于2015-03-18得票数 8
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
