Tag: powerpoint

C＃将HTML粘贴到Excel或PowerPoint: 如何将HTML（表格）代码粘贴到Excel或PowerPoint？

excel目标图表，以特定的占位符: 我需要从Excel中复制一些图表到PPT演示文稿。演示文稿与一些占位符保持一致，以接收不时更新的图表。我需要能够决定什么图表到什么占位符，因为我想能够改变Excel文件或PPT没有限制。因此，我想使用一个带有外部字典的.json文件，告诉我哪个图表从哪个表格到哪个占位符中的哪个幻灯片。看起来像这样 {'chart1':{'xl_sheet_name':'Summary numbers', 'xl_chart_name':'Chart 9', 'ppt_tgt_slide':10, 'ppt_tgt_placeholder':2}, 'chart2':{'xl_sheet_name':'Summary numbers', 'xl_chart_name':'Chart 10', 'ppt_tgt_slide':10, 'ppt_tgt_placeholder':3}, 'chart3':{'xl_sheet_name':'Summary numbers', 'xl_chart_name':'Chart 11', 'ppt_tgt_slide':10, 'ppt_tgt_placeholder':4}} 然后代码去 Sub charts_2_ppt() Dim strText As String Dim lib As New JSONLib Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide 'Reference existing instance of PowerPoint Set PPApp = […]

Excel VBA – 设置PivotItems错误的可见性: 我使用下面的代码来过滤Excel中的数据透视表（但是从PowerPoint中） – 我设法清除“date”字段的filter，但是我无法设置oPi值的可见性。 Sub Data() Dim oExcel As Excel.Application Dim oWB As Workbook Dim oPi As PivotItem Set oExcel = New Excel.Application oExcel.Workbooks.Open ("\\A79APBRSFACTD\MDSS\FactivityServer\FactShar\OEE_Daily2.xls") oExcel.Visible = True Set oExcel = Excel.Application Set oWB = oExcel.Workbooks("OEE_Daily2.xls") oWB.Sheets("OEE Pivot Daily").Select oExcel.Run ("Update_OEE_Daily") oWB.Sheets("OEE Pivot Daily").Range("B3").Select oWB.Sheets("OEE Pivot Daily").PivotTables("PivotTable2").PivotFields("Date").Orientation = xlHidden With oWB.Sheets("OEE Pivot Daily").PivotTables("PivotTable2").PivotFields("Date") .Orientation = xlPageField […]

Excelgraphics到PowerPoint C ++ / CLI从HRESULTexception：0x800A03EC: 我试图复制excelgraphics，然后将它们粘贴到使用C ++ / CLI的PowerPoint中，尽pipe在尝试使用Copy（）方法时遇到了困难。这里是我的代码现在的简化版本： Worksheet = dynamic_cast<Excel::Worksheet^>(WS[3]); chartObjects = dynamic_cast<Excel::ChartObjects^>(Worksheet->ChartObjects(paramMissing)); existingChartObject = dynamic_cast<Excel::ChartObject^>(chartObjects->Item(2)); existingChartObject->Copy(); shapeRange = Slide->Shapes->Paste(); 但是当我尝试这个，给我一个错误： An unhandled exception of type 'System.NullReferenceException' occurred in Excel To PPT.exe Additional information: Object reference not set to an instance of an object. 现在我的Excel工作簿在每张纸上都有6张图，从纸张3开始。如果我复制了纸张3上的所有graphics，并将它们粘贴到这样的一张幻灯片上。把这个尝试叫做一个 for(count = 1, count <= 6; ++count){ Worksheet = dynamic_cast<Excel::Worksheet^>(WS[2]); chartObjects […]

VBA中出现“无法运行macros…”错误: 我最近学会了如何在VBA中进行编程，并通过阅读本网站上以前提出的问题和答案获得了一些非常有帮助的帮助。但是，我在其中一个程序中遇到了一个问题，这个问题似乎没有被直接解决。所以我会在这里问。我正在制作一个Powerpointmacros，将自动更新一些幻灯片与新的数据。对于包含Excel表的一张幻灯片，我希望macros打开一个Excel文件，在Excel文件中运行一个现有的macros，用新数据填充电子表格，最后将表格复制到幻灯片中。我的代码到目前为止（没有复制部分）是这样的： Private Sub GetProposals() Dim myXL As Excel.Application Dim myXLS As Excel.Workbook Dim ws As Excel.Worksheet Set myXL = New Excel.Application Set myXLS = GetObject("K:\Jackson\Proposal Summary Master.xlsm") Set ws = myXLS.Sheets(1) ws.Visible = xlSheetVeryHidden myXLS.Sheets("VLOOKUP").Range("J1").Value = "EPL" myXL.Run ("'K:\Jackson\Proposal Summary Master.xlsm'!BABox_Change") End Sub 它正确运行，直到我到达“myXL.Run …”行。我收到一条消息：“运行时错误1004”：无法运行macros“K：\ Jackson \ Proposal Summary […]

如何在新实例中打开一个PowerPoint后台工作表: 我正在使用vba更新PowerPoint演示文稿。在ppt中有30个图表，我将把一些excel表格中的数据应用到powerpoint图表的后端excel表格中。但是每次我都可以看到新的Excel表格在任务栏中打开。即使他们不显示在整个屏幕上 Set CExcel = New Excel.Application CExcel.Visible = False Set CWB2 = CExcel.Workbooks.Open(PPPres.Slides(lngSldNo).Shape(strChartName).Chart.ChartData.Workbook) 这是我正在使用的代码，但它给我的错误，你不能打开这样的文件，你可以告诉我如何在新的实例中打开PowerPoint后台工作表，而不显示文件和它的标签也提前致谢

从ppt演示文稿中select某个幻灯片并粘贴excel图表: 我有以下代码来打开工作表，复制一个图表，打开演示文稿并将其粘贴。它工作得很好，对于一个图表和一个幻灯片，但在XLSM有8个图表，所以在PPTX 8个幻灯片，我不知道如何select，例如，第二个图表，并将其粘贴到第二个或第三个幻灯片的介绍。用PowerPoint.Slide curSlide = pptApp.ActiveWindow.View.Slide; 它select当前幻灯片或幻灯片1。 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using Microsoft.Office.Core; using xlNS = Microsoft.Office.Interop.Excel; using PowerPoint = Microsoft.Office.Interop.PowerPoint; using Graph = Microsoft.Office.Interop.Graph; using System.Runtime.InteropServices; namespace WindowsFormsApplication3 { public partial class Form1 : Form { public Form1() { InitializeComponent(); } […]

使用VBA将多个Excel范围导出到PowerPoint Notes页面: 是否可以使用VBA将多个Excel范围导出到单个PowerPoint Notes页面？我设法将指定范围导出到指定的幻灯片，但不能将多个范围导出到同一张幻灯片 – 第一个总是被覆盖如果我添加多个形状，那么只有最新的一个显示。我似乎不能定位形状，所以它总是写在前一个的顶部

从Microsoft Excel自动化Powerpoint数据: 我最近build立了一个PowerPoint仪表板，在一张幻灯片上显示文本框，表格和图表。所有这些数据经过人类解释器的一些分析后，build立在一个单独的Microsoft Excel文件中。我想在这里自动化的过程是将这些数据从Excel转换到Microsoft PowerPoint中，到目前为止，这些工作都是手动完成的，包括哪些格式必须对input的某些graphics和文本框进行重做。但是，布局通常是相同的。我期望从中得到回报是什么将这是最好的build议这样做？我在那里看到了一些VBScript模板，这可以将文本和表格数据直接一对一地映射到它们各自的文本框/单元格。我很好奇的获得反馈的方式是映射图表（和/或其相关数据），并将幻灯片格式化以符合我准备好的仪表板的约束和主题。我有广泛的面向对象的编程经验，但在Microsoft Office套件中没有太多的编程经验。非常感谢提示和build议，以及对我可能遇到的一些限制的build议。

如何正确地将数据从Excel导入到Powerpoint中: 我有一个幻灯片上有几个标签的幻灯片演示文稿。我需要从位于与PowerPoint演示文件文件夹相同的文件夹中的Excel表中拉取标签的值。到目前为止，我用来填充标签的代码是这样的： Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow) If Wn.View.CurrentShowPosition = 1 Then 'load variable values? Dim xlApp As Object Dim xlWorkBook As Object Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False Set xlWorkBook = xlApp.Workbooks.Open(ActivePresentation.Path & "\QSheet.xlsx", True, False) BrownRetail = xlWorkBook.Sheets(1).Range("B3").Value lblBrownTruckRetail.Caption = "$" & CCur(BrownRetail) Set xlApp = Nothing Set xlWorkBook = […]