在Powerpoint中使用VBA调整Excel图表大小
，可以通过以下步骤实现：
- 首先，确保已经将Excel文件嵌入到Powerpoint演示文稿中。可以通过在Powerpoint中选择“插入”选项卡，然后选择“对象”按钮，再选择“从文件”选项来嵌入Excel文件。
- 打开Powerpoint的VBA编辑器。可以通过按下Alt+F11键或在开发工具栏中选择“Visual Basic”按钮来打开VBA编辑器。
- 在VBA编辑器中，选择“插入”选项卡，然后选择“模块”来插入一个新的VBA模块。
- 在新的VBA模块中，编写以下VBA代码来调整Excel图表的大小：
Sub AdjustExcelChartSize()
Dim pptSlide As Slide
Dim pptShape As Shape
Dim excelChart As Object
' 遍历每个Powerpoint幻灯片
For Each pptSlide In ActivePresentation.Slides
' 遍历每个幻灯片中的形状
For Each pptShape In pptSlide.Shapes
' 检查形状是否为嵌入的Excel图表
If pptShape.Type = msoEmbeddedOLEObject Then
' 获取Excel图表对象
Set excelChart = pptShape.OLEFormat.Object
' 调整Excel图表大小
excelChart.ChartArea.Width = 400
excelChart.ChartArea.Height = 300
End If
Next pptShape
Next pptSlide
End Sub- 在VBA编辑器中，按下F5键或选择“运行”选项卡中的“运行子过程”按钮来运行VBA代码。
上述VBA代码会遍历Powerpoint演示文稿中的每个幻灯片，检查是否存在嵌入的Excel图表，并调整其大小为400x300像素。你可以根据需要修改代码中的图表大小。
推荐的腾讯云相关产品：腾讯云云服务器（CVM）和腾讯云对象存储（COS）。
相关·内容
1回答
宏从Excel调用以打开PowerPoint演示文稿，插入幻灯片，并将范围复制到幻灯片工作中，有时会出错
vba、excel、powerpoint
免责声明-非常新的编写VBA宏，但我已经做了大量的研究，在这里和其他论坛，同时试图修复这个错误，所有都没有用。很抱歉，如果你已经问过并回答了这个问题，也许我找错了。
接下来是肉和土豆:我在Excel中开发了一个VBA宏，允许我这样做：
打开新的或现有的PowerPoint演示文稿
将值粘贴到特定单元格并激活该单元格，该单元格将使用vlookup公式填充电子表格
将值仅将从第一个电子表格复制到第二个电子表格，然后复制第二个电子表格
使PowerPoint可见，然后在某个点插入新幻灯片
将Excel数据粘贴到新幻灯片并相应地定位。
每当我在PowerPoint演示文稿已
浏览 5提问于2014-12-12得票数 1
1回答
更改链接Excel表-图形对象Powerpoint VBA
excel、powerpoint、vba
我正面临着VBA编码的问题。
我有一个excel文件，里面有各种各样的表格，有数据和图表。这些图被链接到Powerpoint (图形被复制并粘贴为对象的“link”)。
问题是，我现在有一个有130多张幻灯片的巨大Powerpoint，每张幻灯片上有大约18张图表。有2000多张图表。
我想更改我的工作表的名称，并复制一些幻灯片，用过滤后的数据填充图表。
我的问题是：-如果更改工作表的名称，当然链接是坏的。用UI手动更新所有内容是不可能的；--在PowerPoint中复制幻灯片时，图形仍然链接到与原始幻灯片相同的Excel表上--更改链接的唯一方法是删除所有图表，在Excel中复制工作表--用
浏览 2提问于2017-11-23得票数 0
回答已采纳
1回答
更新Powerpoint链接的VBA
vba、powerpoint
我有一些vba代码来更新powerpoint中的链接。对于某些链接，它完美地工作，而对于一些链接，它只是不想更新。
我确实注意到，如果链接是excel工作表，则更新，但如果链接是excel中的图表，则不想更新：
Sub ul()
Dim pptSlide As Slide
Dim pptShape As Shape
Dim oldString As String
oldString = "C:\Users\username\Downloads\dir\Mar Apr 2014\"
Dim newString As String
newString = "C:\User
浏览 1提问于2015-05-09得票数 0
回答已采纳
1回答
将所选图表作为图像导出到不同的.ppt幻灯片
vba、excel、powerpoint
我想要做的是将一组图表作为图像导出到不同的PowerPoint幻灯片中。当我尝试导出单个图表时，它可以工作，但选择多个图表并再次尝试导出它们不起作用。
我遗漏了什么？下面是我到目前为止尝试解决问题的代码。
Sub SendTop2ChartsToPPT()
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Dim pptShape As PowerPoint.Shape
Dim pptShpRng As PowerPoint.S
浏览 4提问于2017-07-03得票数 0
2回答
使用PowerPoint对象库15.0的代码不能在具有库14.0的计算机上运行
excel、vba、powerpoint、late-binding
我有一个VBA宏，它可以从Excel中的行创建PPT幻灯片。它在我的PC上运行得很好(使用PowerPoint对象库15.0)，但当我分发给使用旧版PowerPoint对象库(例如14.0)的人时，它会输出粘贴形状的格式。
我读到过有关早/晚绑定的内容，但不知道如何解决这个问题。如何将代码更改为使用早期绑定而不是后期绑定？我发现的其他相关问题都没有答案。
浏览 0提问于2015-06-17得票数 0
1回答
Mac OS上PPT中的幻灯片选择
excel、vba、macos、powerpoint
我正在尝试创建一个VBA程序从excel的屏幕截图粘贴到PPT模板中。我已经在Windows上取得了成功，但我正在努力让它在MAC上工作。我知道让Office系列产品在Office for Mac上相互通信存在问题，但我希望一些旧的问题已经得到解决。关于这个主题的问题，在很大程度上是几年前的。
我可以使用下面的代码从目录中打开ppt模板，但只要我尝试选择特定的幻灯片，它就会崩溃。这是关于这个话题的最全面的对话，但它来自大约3年前。
我错过了什么愚蠢的东西吗？有解决办法吗？我的组织中一半人使用PC，另一半人使用Mac，所以仅仅使用Windows不是解决方案。
Sub CreateDealRevi
浏览 6提问于2020-06-05得票数 0
2回答
缺少参考错误- Mac上的VBA for Powerpoint 2011 (适用于Windows的PPT 2007运行正常)
macos、vba、powerpoint
令人兴奋的是，VBA回到了Mac，但在Powerpoint 2007 for Windows中运行良好的代码遇到了问题(在下面的注释语句中给了我一个“编译错误:用户定义的类型未定义”)：
Private Function m_CreateStackedChart(SourceData As Excel.Range) As Boolean
Dim pptShape As PowerPoint.Shape
Dim pptChart As PowerPoint.Chart ' // This line causes the error
Dim pptSlide As
浏览 2提问于2011-07-12得票数 1
4回答
将Excel图表粘贴到PowerPoint幻灯片中
excel、vba、powerpoint
下面的Sub应该将Excel图表粘贴到新创建的PowerPoint幻灯片中。然后，它将图表导出为PNG：
Sub ChartsToPowerPoint()
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
'Open PowerPoint and create an invisible new presentation.
Set pptApp = New PowerPoint.
浏览 7提问于2014-08-21得票数 3
回答已采纳
2回答
我想在powerpoint中的VBA代码，以显示所有图表在excel到不同的幻灯片在ppt
excel、vba、powerpoint
我已经开发了excel的vba代码，以显示所有图表在excel中的不同幻灯片在ppt。但我希望vba代码在powerpoint中实现，而不是在excel中实现，这样我就可以在powerpoint中使用该宏创建一个插件。我曾尝试在powerpoint中实现excel vba代码，但在ppt中不起作用。问题是它正在将图表从excel复制到ppt幻灯片。我在ppt中使用了以下代码，但没有成功。
Sub Button1()
Set pptApp = New PowerPoint.Application
Set pptPres = pptApp.ActivePresentation
浏览 2提问于2017-09-22得票数 1
3回答
Powerpoint从Excel切换回powerpoint
vba、excel、powerpoint
我希望有人能帮忙..。
我有一个powerpoint演示文稿，它链接了excel文件中的表格和图表。幻灯片的更新设置为手册。
我在Powerpoint中创建了一个VBA代码，它打开了excel文件。我试图通过VBA更新powerpoint中的链接，而不是手动选择每个链接元素和更新值。虽然我的VBA代码的第一部分用于打开excel文件，但是链接没有被更新，我认为这是因为没有回到powerpoint来更新链接，所以我尝试在我的VBA代码行中包括这些代码行，这些代码行将返回到powerpoint演示文稿，之后我假设更新链接的行将正常工作(很高兴得到更正)。下面是我构建的代码，所以far....my注
浏览 3提问于2017-09-14得票数 1
1回答
将文本从Powerpoint提取到Excel
excel、vba、powerpoint、text-extraction
我需要从powerpoint中提取一些文本到excel中，这是工作上的事情。我可以手动完成，但我相信有一种更好更快的方法。 我实际上并不编码，我确实在python和VBA中做了一些类，但我并不是真正精通它。我在sigma code上找到了一些代码，并试图运行它，有一个错误，因为用户定义的类型是未定义的。 谁能帮我看一下file，给我指个方向？如果我可以提取每个文本框并将其发送到excel文件中的单独列中，那就太好了。 'Declare our Variables
Dim PPTPres As Presentation
Dim PPTSlide As Slide
Dim PPTShap
浏览 22提问于2021-04-04得票数 0
1回答
EXCEL VBA自动向Powerpoint添加新幻灯片
vba、excel、powerpoint
这是我将内容从Excel导出到PowerPoint的代码。我的问题是我在演示中只有一张幻灯片。当符合标准时，VBA应该自动增加幻灯片并填充它。幻灯片应采用相同的布局。在每个IF和Else循环之后，我需要为下一次迭代添加一个新的幻灯片。使用这段代码，我得到一个Active X组件无法创建对象的错误。有什么帮助吗？
Dim oPPTShape As PowerPoint.Shape
Dim oPPTFile As PowerPoint.Presentation
Dim SlideNum As Integer
Dim pptSlide As PowerPoint.Slide
Dim pptLayou
浏览 1提问于2016-04-13得票数 0
2回答
我的代码在2007年运行正常。在2013年，在行中抛出一个错误作为"Object Required“
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
如何修改已有的PPT？
Sub CreatePowerPoint()
'Add a reference to the Microsoft PowerPoint Library by:
'1. Go to Tools in the VBA menu
'2. Click on Reference
'3. Scro
浏览 0提问于2013-12-17得票数 3
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
2回答
在形状ppt内更改字体
vba、excel、powerpoint
我正在通过VBA、用户表单和Excel自动生成powerpoint幻灯片。在excel中运行VBA脚本，填写数据，数据进入excel中的单元格中，然后VBA脚本将数据拉出并放入幻灯片中的文本框形状中。
我的问题是，我想在不同的时间使用不同的字体大小，例如，28 pt字体用于一个部分，14 pt用于其他部分。问题是，我对textbox所做的任何属性更改都适用于形状中的所有文本。
我目前的解决办法是草率的，只需在原来的文本框上生成另一个文本框，并在原始文本框中插入间距，因此看起来更大的文本“在”文本框中，而实际上它只是坐在几行空行上。
浏览 13提问于2014-09-29得票数 1
回答已采纳
1回答
PowerPoint 2013 "PasteSpecial“不会将Excel图表作为OLE对象嵌入
vba、charts、excel-2013、powerpoint-2013
我用PowerPoint编写了一个宏，作为其过程的一部分，它将通过复制源PowerPoint图表并将复制的图表粘贴为OLE对象将PowerPoint演示文稿中的链接图表转换为嵌入式图表--具体的命令是
直到今天，这在2003年至2010年的所有版本中都运行良好。但是，在2013/365年度尝试运行此函数时，我始终会得到一个运行时错误，说明“指定的数据类型不可用”(-2147188160 / 80048240)。我还注意到，在Microsoft参考网页中，"ppPasteOLEObject“不再被列为PasteSpecial方法的可接受的数据类型(当与Shapes集合一起使用时)。
我已
浏览 0提问于2015-05-21得票数 1
1回答
引用PowerPoint幻灯片时Excel崩溃
excel、vba、macos、crash、powerpoint
我有Excel VBA代码来打开和分析一些PowerPoint演示文稿。
这个问题似乎与引用幻灯片对象有关。当我尝试做一些与特定幻灯片相关的事情时，它崩溃了。例如，下面的代码大大简化了我的原始代码，每次都会因为最后一行set mySlide = myPres.Slides(1)而崩溃。
Option Explicit
Sub test()
Dim myApp As PowerPoint.Application
Dim myPres As Presentation
Dim mySlide As Slide
Set myApp = CreateObject("PowerPoint.App
浏览 18提问于2018-09-03得票数 0
4回答
利用腾讯云GPU构建深度学习网络？
对象存储、深度学习
如题，本人（学生）想用腾讯云构建一个实验性的深度学习网络，具体要用到腾讯云的哪些服务呢？（GPU，COS），另外还需考虑较低的成本。。。
浏览 1122提问于2017-12-13
2回答
VBA不遍历任何PowerPoint幻灯片
excel、vba、powerpoint
我只是想在Excel中使用下面的VBA代码遍历PowerPoint幻灯片。
Sub test()
Dim slide As Object
For Each slide In ActivePresentation.Slides
Debug.Print "test"
Next slide
End Sub
然而，我收到消息‘运行时错误'424’。对象所需的。有人知道为什么ActivePresentation.Slides可能不能正常工作吗？我也尝试过Dim slide as Slide。
在PowerPoint中是否有需要激活的设置或参数？
任何帮助都很感
浏览 0提问于2019-04-08得票数 0
回答已采纳
2回答
如何在powerpoint中更新excel嵌入图表？
vba、powerpoint
我有30个图表是从excel创建的，并被粘贴到powerpoint幻灯片上。每个月，我都要通过手动单击图表和编辑来更新这30个嵌入图表。
我知道有一个选项可以使用paste special，这样图表中的数据就可以通过单击更新链接自动更新。但是，我的图表需要由某些用户进行编辑。粘贴特殊选项不允许用户编辑图表。因此，我无法使用此粘贴特殊选项。
我认为解决的办法在于用powerpoint写一个vba。在座的任何一位专家能提供编写此vba代码以允许在powerpoint中更新所有图表吗？我目前使用的是PowerPoint2007。非常感谢您的帮助。
浏览 1提问于2012-02-09得票数 8
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
