Tag: powerpoint

从Excel中复制文本并将其粘贴到PowerPoint中，然后格式化复制的文本: 我是一个非常新的编写VB脚本。我能够从Excel复制文本（或范围），并将其粘贴在PowerPoint中，我想改变字体大小（12），把一个边框，并将背景设置为白色。以下是我必须从Excel复制文本： ' ~~~~~~~~~~~~~ Sub Copy_ExcelText_Powerpoint_and_Format() ' This copies a range in excel and copy it in Powerpoint, and then formats it Dim PPApp As Object ' As PowerPoint.Application ' Reference existing instance of PowerPoint Set PPApp = GetObject(, "Powerpoint.Application") Sheets("Sheet1").Range("J2:J4").copy PPApp.ActivePresentation.Slides(1).Shapes.PasteSpecial DataType:=10, Link:=0 ' now format the text ' ……. ' ~~~~~~~~~~~~~ 我发现一些脚本会改变活动幻灯片中所有文本的字体，但是我只想改变刚刚从Excel复制的文本的字体大小（等等）。 […]

在Powerpoint中用vbscript如何调整embedded的OLE xls对象的显示范围？: 我的问题是，我正在将xls表单合并到PowerPoint演示文稿中。有时最后3列在对象中不可见。他们在那里，如果你双击该对象，然后在Excel中查看它。我想在VBScript的方式来设置embedded对象图标应该显示的范围。（可以通过双击对象进行手动操作，双击后拖动位于对象两边中间的小黑方块。）我一直在尝试2天来解决这个小问题。我已经尝试OLEFormat和这个http://msofficeautomation.wordpress.com/2012/06/11/add-excel-sheet-via-addoleobject-into-powerpoint/没有任何运气。我试图在Word中录制一个macros，因为我没有在ppt中的loggingfunction，但是当录制一个macros时，你不能重新定义在这个对象中显示的范围。 🙁 我附上一个小例子，在powerpoint本身中添加一个名为C：\ temp \ addOLEObject_problem \ Book1.xlsx的xlsx文件 Sub AddObject() Set PPSlide = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1, 16) Set objShapeOLE = PPSlide.Shapes.AddOLEObject(0, 0, , , ,"C:\temp\addOLEObject_problem\Book1.xlsx", False) ' Set objShapeOLE = PPSlide.Shapes.AddOLEObject(0, 0, , , , ".\Book1.xlsx", False) ' Resize to fill the slide ' ******check if width or […]

如何检测（并更改）在Excel和PowerPoint中的图表中使用的字体是否将遵循样式或由用户指定？: 当图表从Excel复制到PowerPoint时，如果轴上的字体由于在Excel中应用的样式或主题而发生更改，那么它们通常会更改为与PowerPoint中应用的任何主题（这是好的）保持一致。但是，当字体（通常可能是格式化）已被用户覆盖时，用户指定的字体是使用的字体。编写代码来检测默认字体是什么，并应用它可能不是那么棘手，但我宁愿应用主题字体的方式，将匹配后续主题的变化。谁能告诉我如何做到这一点？我正在使用C＃，但熟悉VBA和对象模型或多或less都是相同的，所以两种语言的方法应该没问题。

在excel-spreadsheet-rows中循环，直到在powerpoint中使用VBA-macro为空。对于每一行读取值并写入2-dim-array。不，请select: 我想做一个简单的search，并在PowerPoint中取代。我试图通过在powerpoint中使用VBAmacros的Excel电子表格进行循环。电子表格有两列和100行。我想让macros遍历行，直到它到达一个空的单元格。对于每一行，它都会读取第1列和第2列的值，并将其写入二维数组。我使用各种.select语句运行，但是我不喜欢这种方式（是select越野车？search和replace工作了几次，但更改电子表格后，macros常常崩溃）。我正在尝试使用性能更好的更健壮的方法。 Dim excelDataArray(120, 2) As String Dim slidedeck As Presentation Set slidedeck = ActivePresentation Dim singleslide As Slide Dim excelFile As Excel.Workbook Set excelFile = Excel.Application.Workbooks.Open(spreadsheetFolder) Dim excelSheet As Excel.Worksheet Set excelSheet = excelFile.Worksheets("Sheet1") 'Loop through each row in Column A until empty row Dim N As Integer N […]

我需要在closures电源点应用程序时打开一个excel工作表: 如果有人正在更新功率点，他们还需要更新Excel表格如何做到这一点？我相信它可以通过macros来完成，但是我不擅长它。 Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strFile As String Dim WB As Workbook If ThisWorkbook.Saved = False Then Dim DirFile As String DirFile = "C:\Users\tg2412\Documents\1.xlsx" If Len(Dir(DirFile)) = 0 Then MsgBox "File does not exist" Else Set WB = Workbooks.Open(DirFile) End If End If End Sub 提前致谢…：）

从Excel中取消链接图表并保持数据可编辑？: 最长的时间，我一直在努力实现这一点，无济于事。这似乎应该是一个普遍的问题，但我仍然无法find答案。我想要做的是：在Excel和/或Powerpoint中有一个图表。将此图表作为图表对象复制到PPT中。保持原始图表的所有特征，但保持它可编辑（即 – 添加/删除轴，数据标签等）中断链接到原始图表/工作簿，但保持数据可编辑。也就是说，我想要编辑数据时打开一个新的Excel表格，就像我创build一个新的图表对象一样。最好，我想将原始数据转换为新的图表，但这并不重要。基本上，我希望能够使用graphics作为新graphics的模板，而无需编辑原始数据。请帮忙！ PS。我没有包含任何代码，因为我尝试过的大部分代码都试图实现其他function。我主要想知道这是否可以做（应该是！）？

将Powerpoint形状范围variables设置为VBA中的Pastespecial方法: 我正在使用这段代码将数据从Excel粘贴到Powerpoint中。 PPSlide.Shapes.PasteSpecial DataType:=ppPasteMetafilePicture 'Where PPSlide is a `PowerPoint.Slide` object that was previously set 'For your info, I am using late binding. 问题是由于某些原因，在上面的PasteSpecial行之后，Excelmacros的某些用户在Excel代码尝试引用应该从此代码返回的结果ShapeRange对象时出现错误。错误出现在这样的行上： PPApp.ActiveWindow.Selection.ShapeRange.Height = dHeight 'Where PPApp is a PowerPoint.Application object using late binding 当我回头看PowerPoint幻灯片，我可以看到被粘贴的Shape对象没有被选中。它只发生在一些用户。在我的机器上，按照PasteSpecialselect形状对象。我想也许我可以定义一个ShapeRange对象，而执行PasteSpecial像这样： Set PPShapeRange = PPSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture) 但是这不起作用。我在这行上得到一个错误。有任何想法吗？

VBA错误438，使用Excel中的值的PPT滑动移动: 使用下面的代码，当我尝试将幻灯片移动到已经创build的部分时，我收到了438错误。最后4行的代码。对不起，如果这个代码不清楚，但我是新的VBA。 Private Sub CopyandPastetoPPT(Counter As Integer) Dim NextShape As Integer Dim IssueName As String Dim IssueDesc As String Dim CfoNumber As String Dim IndName As String Dim Cat1 As Variant IssueName = Worksheets("Data_Sheet").Cells(Counter, 1) IssueDesc = Worksheets("Data_Sheet").Cells(Counter, 3) CfoNumber = Worksheets("Data_Sheet").Cells(Counter, 5) IndName = Worksheets("Data_Sheet").Cells(Counter, 7) Cat1 = Worksheets("Data_Sheet").Cells(Counter, 9) Set PP_Slide = […]

VBA只有当我想要所有的时候抓住一个图表才能得到PPT？: 我是一个业余编码器。我试图把东西放在一起，将excel文件中的所有图表转移到一个幻灯片上的不同幻灯片。我已经在线testing了几个模块（也有一些在这里）。到目前为止，我发现下面这个对我来说是最全面的。我在工作表上有3个图表，出于某种原因，我无法弄清楚，代码只复制一个graphics（第一个创build），制作新的幻灯片并将其粘贴在第二张幻灯片上。不知道发生了什么，任何帮助将不胜感激： Sub ChartsAndTitlesToPresentation() ' Set a VBE reference to Microsoft PowerPoint Object Library Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim PresentationFileName As Variant Dim SlideCount As Long Dim iCht As Integer Dim sTitle As String ' Reference existing instance of PowerPoint Set PPApp = […]

使用Excel VBA获取Powerpoint数据: 我在滚动条上find了几张图片，可以单独定位。现在我想在Excel中运行一个脚本，创build一个Powerpoint实例，并通过它的图像ID获取图片的Y坐标。 Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Set PPApp = CreateObject("Powerpoint.Application") PPApp.Visible = True 这就是我迄今为止所创build的Powerpoint实例。现在我真的不知道如何告诉Excel / VBA哪些读取和如何给我的幻灯片XY的Y坐标。