Tag: powerpoint

将Excel图表复制/粘贴到PowerPoint并断开链接

我想复制粘贴几个图表使用VBA（Excel和PowerPoint 2013）的PowerPoint。 只要我不试图破坏Excel和PowerPoint之间的graphics连接 – 我绝对需要这样做，我的macros下面工作正常。 我查了一下Google，发现有人build议使用.Breaklink方法：只要在我的工作表上没有多于一个图表，我们就可以使用.Breaklink方法。 如果至less有两个graphics，它将正确复制第一个graphics，然后在第二个graphics上工作时抛出“MS PowerPoint已停止工作”消息。 我应该如何继续？ 我试图在.Chart.ChartData和.Shape对象上应用.BreakLink方法无济于事。 Sub WhyIsThisWrong() Application.ScreenUpdating = False Dim aPPT As PowerPoint.Application Dim oSld As PowerPoint.Slide Dim oShp As PowerPoint.Shape Dim oCh As ChartObject Set aPPT = New PowerPoint.Application aPPT.Presentations.Add aPPT.Visible = True For Each oCh In ActiveSheet.ChartObjects oCh.Activate ActiveChart.ChartArea.Copy aPPT.ActivePresentation.Slides.Add aPPT.ActivePresentation.Slides.Count + 1, ppLayoutText Set oSld = […]

当使用vba从Excel粘贴到powerPoint时，只有PasteMetafilePicture有效

这一个让我很困惑。 我写了一个在Excel中创build数据透视表的代码。 然后创build一个新的PowerPoint并调整格式。 最后，我希望从Excel中获取数据透视表，将其复制并粘贴到PowerPoint文件中。 我想能够编辑它，所以位图，图片，GIF等将无法正常工作。 一切工作正常，直到我将数据透视表粘贴到Excel中。 这贴到PowerPoint的图片，没问题： pt.TableRange1.Copy newPPT.ActivePresentation.Slides(1).Shapes.PasteSpecial (ppPasteMetafilePicture) 其中pt是数据透视表，newPPT是PowerPoint.Application 但是，这不起作用。 pt.TableRange1.Copy newPPT.ActivePresentation.Slides(1).Shapes.PasteSpecial (ppPasteHTML) 没有什么贴。 我已经尝试缩小，移动所有的物体，因为它可能粘贴在一切，但没有运气。 任何想法为什么发生这种情况？ 另外，当代码运行后从剪贴板粘贴时，无需重新复制数据透视表，粘贴没有问题。 谢谢

如何使用VBA创build一个新的PowerPoint幻灯片与Excel中的文本数据？

我试过从现有的论坛修改代码，但它是为现有的Powerpointdevise的，我想用excel中的信息创build一个新的powerpoint。 你能告诉我在我的代码中哪里出错了吗？ Sub MarinePowerpoint() Dim ws As Worksheet, wsB As Worksheet Set ws = Worksheets("Overview") Set wsB = Worksheets("Billing Rates") Dim trueCount As Integer Dim i As Integer Dim Cst, Hrs For i = 1 To 11 If ws.Range(Chr(65 + i) & "36").Value = "True" Then trueCount = trueCount + 1 Cst = Cst + […]

VBA代码将PowerPoint文件转换为Window Media播放器文件

我想通过Excel VBA代码将PowerPoint文件（pptx）保存为Window Mediavideo（.wmv）。 可以通过VBA转换文件吗？

Excel VBA在PowerPoint中复制幻灯片

我正在从Excel导出内容到PowerPoint。 我在PowerPoint演示文稿中有一个空白的格式化幻灯片，我需要每次复制并在其上写入。 问题是我的代码在当前幻灯片之前添加了一个新的幻灯片，这个幻灯片会将内容写入到确切的幻灯片编号中。 我希望在当前幻灯片之后添加新的幻灯片。 Set pptSlide = oPPTApp.ActivePresentation.Slides(1).Duplicate.Item(1) oPPTFile.Slides(SlideNum).Select Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table 1") 有什么build议么 ？

用python xlwings将图表导出为图像

我一直在使用Python和xlwings自动创buildExcel报告。 在这些报告中，有多个图表和图表，我现在想用在一个PPT的演示文稿保持相同的格式和devise。 为了生成pptx，我正在使用python-pptx。 理想的解决scheme是使用xlwings，python-pptx或其他库直接从Excel导出图表到PowerPoint，保持graphics的格式和devise，并保持数据集在表示中可编辑。 第二个解决scheme是将Excel报表中创build的graphics作为图像导出到临时文件夹。 然后，使用python-pptx将这些图像上传到演示文稿。 这将确保保持graphics的devise，但意味着数据可能不会被编辑。 为此，我需要知道如何将图表保存为xlwings的图像，我找不到这样做的方法。 我开放给不同的解决scheme，包括用不同的语言（先验和没有调查，我猜C＃可以很好的Windows应用程序）生成的Excel。 虽然这将意味着增加整个项目的不稳定性。 首先十分感谢

在多张PowerPoint幻灯片上放置多个Excel表格

我把表格从Excel到Powerpoint的范围粘贴起来。 问题是，当我粘贴第一个表时，定位工作正常（.Top和.Left），但我粘贴表后第一个相对于第一个表的位置。 .Top成为桌子左上angular和第一个桌子位置的上边之间的距离（而不是滑块的上边，因为它应该是！），同样的事情发生在左边。（它代表桌子左上angular和第一张桌子左侧之间的距离）。 代码如下： Sub ExportaraPowerPoint() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptShape As PowerPoint.Shape Dim excelTable As Excel.Range Dim SlideTitle As String Dim SlideText As String Dim SlideObject As Object Dim pptTextbox As PowerPoint.Shape Dim SlideNumber As String Dim xlTable As PowerPoint.Shape 'Check is PPT is open […]

C＃：如何将Excel单元格范围和图表数据复制到电源点幻灯片

我有Excel工作表中的数据和图表，我需要在运行时从Excel复制到电源点幻灯片。 我有一个代码工作正常，但代码只能复制图表数据，Excel表格范围数据。 请看我的Excel的镜头。 所以，任何人都有一个想法是如何在我的工作表中的数据，我需要以编程方式复制到PowerPoint幻灯片。 这里是我用来dynamic地将范围数据和图表数据复制到PowerPoint的代码。 private void Form1_Load(object sender, EventArgs e) { pptNS.ApplicationClass powerpointApplication = null; pptNS.Presentation pptPresentation = null; pptNS.Slide pptSlide = null; pptNS.ShapeRange shapeRange = null; xlNS.ApplicationClass excelApplication = null; xlNS.Workbook excelWorkBook = null; xlNS.Worksheet targetSheet = null; xlNS.ChartObjects chartObjects = null; xlNS.ChartObject existingChartObject = null; xlNS.Range destRange = null; string paramPresentationPath = […]

OpenXML EmbeddedPackagePart和caching

我已阅读了所有关于在Powerpoint中更新链接到Excel数据的图表。 我已经成功完成了这一步 – 更新底层电子表格和编号caching。 我假设我目前的问题是非常相似的 – 只有我找不到caching！ 也许有人可以把我指向正确的方向。 而不是一个Powerpoint的图表（其中有embedded式软件包部分和数字caching），我只是从embedded式Excel复制单元格，他们直接embedded到幻灯片。 我可以更新底层数据，和往常一样，如果select“编辑”我的embedded式单元格，我会看到更新的数据，当我回到Powerpoint文档时，所有数据都能正确显示。 所以我猜这是类似的问题，但我的更新caching在哪里？ 目前使用PresentationDocument.SlideParts [0] .EmbeddedPackageParts [0]来更新底层数据（实际上并不使用索引0，但这是要点）。 谢谢你的帮助

将所有图表从Excel工作表复制到Powerpoint幻灯片

我已经build立了一本工作手册，以方便创build我负责的月度报告。 工作簿有一些数据表，一些处理表，然后编号表，其中包含我需要粘贴到相应的幻灯片的图表。 到目前为止，我已经构build了用于打开PowerPoint模板并遍历每个Excel表格的VBA，并区分哪些表格名称是数字的，然后在PowerPoint模板上激活相应的幻灯片。 与我发现的其他类似问题的解决scheme不同，我希望一次将每张编号表中的所有图表复制到每张幻灯片，因为它们在形状，数量和每张幻灯片的处理方面都不相同。 大多数情况下，我发现人们一次只复制一张图表，然后以图像的forms进行粘贴，这对我也不起作用（我需要对数据标签进行微调，并在最后一张幻灯片上进行定位）。 任何暗示，我怎么能实现呢？ 以下是我的代码到目前为止： Sub CriarSlides() Dim pptApp As Powerpoint.Application Dim pptPres As Powerpoint.Presentation Dim strFileToOpen As Variant Dim strFileName As String, Hosp As String Dim datawb As Workbook Dim xlsCounter As Integer, xlsSlide As Integer Set datawb = ThisWorkbook strFileToOpen = Application.GetOpenFilename _ FileFilter:="Powerpoint Files *.pptx (*.pptx),") If strFileToOpen = False […]