Tag: powerpoint
将Excel表格复制到PowerPoint中的最佳方法（2010）？
我正在尝试将一系列Excel表格导入到PowerPoint中，并在Office 2013中为此成功创build了一个macros，但我试图将其应用于Office 2010。 问题是将表格粘贴到PowerPoint时，Office 2010似乎需要唯一/不同的代码。 本来我有： 'Copying Tables to PowerPoint Set PPApp = GetObject(, "Powerpoint.Application") Set PPPres = PPApp.ActivePresentation PPApp.ActiveWindow.ViewType = ppViewSlide For i = 0 To Table3 Sheets("Charts").Range(ChartStart, ChartEnd).Offset(i * Row2, 0).Copy Set PPSlide = PPPres.Slides(1) Set PPShape = PPSlide.Shapes.Paste PPShape.Name = "Table" & i 但自从被告知2010版本的修补程序是使用.PasteSpecial所以我有： 'Copying Tables to PowerPoint Set PPApp = GetObject(, […]
使用excelmacros创buildfunction点
我有一个有趣的问题，我不确定。 我没有用力点，有一点擅长的macros观经验。 我发现了很多类似的问题，但没有一个适合这个法案。 我正在帮助我的本地慈善机构筹集资金，并需要一种方式来制作一种triva类游戏。 游戏将会以幻灯片的forms显示，所有的问题，select和答案都在Excel表格中。 它的铺设方式是每行一个问题，列是：问题，选项，答案和类别。 我已经很容易地pipe理了类别sorting，但现在我需要以某种方式创build幻灯片，以便问题是标题，选项是内容，然后下面的幻灯片是答案那个问题。 因此，每个问题创build两个幻灯片，一个问题和答案幻灯片。 示例行（|表示列）： 这些是哪一个意大利雕塑家？ | 米开朗基罗，丁托列托，达芬奇，加利洛| 米开朗基罗| 艺术 所以结果是标题“哪个是意大利雕刻家？ 和内容a）米开朗基罗，b）tintoretto，c）da vinci，d）galilleo 下面的幻灯片简直就是“米开朗琪罗”
从Excel中打开PowerPoint
我正尝试使用macros从Excel文件打开PowerPoint演示文稿。 我正在使用下面的代码： Private Sub testButton_Click() Dim objPPT As Object Set objPPT = CreateObject("PowerPoint.application") objPPT.Visible = True objPPT.Activate objPPT.Presentations.Open (CStr(ActiveWorkbook.Path) + "\DailyHealthCheck9_24_15.ppt") End Sub 但是我收到以下运行时错误： PowerPoint启动，但不会打开文件。 我检查了文件path，它是正确的。 任何人都可以解释为什么这是发生？ 也许它在PowerPoint文件上的某种types的保护。
打开PowerPoint并从Excel复制到特定的幻灯片
我想要打开一个现有的PowerPoint模板并select幻灯片3并从我的电子表格复制到PowerPoint幻灯片。 请有人告诉我如何做到这一点？ Sub Open_PowerPoint_Presentation() 'Opens a PowerPoint Document from Excel Dim objPPT As Object Dim PPSlide As Object Set objPPT = CreateObject("PowerPoint.Application") Set PPSlide = objPPT.Slides(5) objPPT.Visible = True 'Change the directory path and file name to the location 'of your document objPPT.Presentations.Open "\\MI-FILESERVE1\Shared Folders\Shared_Business_Dev\assets\Tender Time Allocation Deck.pptx" PPSlide.Select End Sub
从Powerpoint Slide中写入已经打开的Excel工作簿
我正尝试使用VBA从PowerPoint演示文稿中手动打开工作簿。 使用CreateObject，然后使用Workbook.Open打开文件的新实例。 我试图通过networking在几个例子中使用GetObject。 这是我的代码： Dim xlApp As Object Dim xlWorkbook As Object Set xlApp = CreateObject("Excel.Application") xlApp.Visible = Trueme Set xlWorkbook = xlApp.Workbooks.Open(ActivePresentation.Path & "\Suivi individuel.xlsx", True, False) xlWorkbook.Sheets(1).Range("C14").Value = "Hello" SlideShowWindows(1).View.GotoSlide nextSlide 我试过了： Dim xlApp As Object Dim xlWorkbook As Object Set xlWorkbook = GetObject(ActivePresentation.Path & "\Suivi individuel.xlsx", "Excel.Application") xlWorkbook.Sheets(1).Range("C14").Value = "Hello" SlideShowWindows(1).View.GotoSlide nextSlide […]
从Excel中用大文件粘贴图表
从Excel中粘贴一些图表（而不是图片）到PowerPoint中，我遇到了麻烦。 问题是，文件是非常大的，应该是大约200kb的powerpoint是20MB左右。 我想知道是否有解决方法，你可以粘贴它，但不是作为一个图片？
错误代码粘贴/复制形状从Excel到PowerPoint VBA
我在VBA中创build了一个代码，用于将Excel中的graphics复制到现有的PowerPoint文件中，并将这些graphics添加到现有的幻灯片中。 在Excel中，我有一个表，指出哪个幻灯片，并在哪个位置，以每个形状（我命名所有的形状，以便我可以引用他们的名字）。 我的代码通过这个表循环来获取形状并粘贴到指定的幻灯片。 这是我的代码： Dim nombrePic As String, auxi As String, i As Integer Dim PPT As Object Dim PPSlide As PowerPoint.Slide Dim numSlide As Integer, posVertical As Double, posHorizontal As Double 'Abrir PPT Set PPT = CreateObject("PowerPoint.Application") PPT.Visible = True PPT.Presentations.Open "c:\prueba.pptx" auxi = Sheets("FigurasResumen_RangPD").Cells(2, 5) i = 2 Do Sheets("FigurasResumen_RangPD").Shapes(auxi).Copy 'Get paste information […]
在powerpoint和excel之间链接表数字
我正在试图创build一个包含很多表格的演示文件。 这些表虽然可能会改变。 所以，我想知道是否有办法将excel文件中表格的数字与幻灯片中表格的数字链接起来？
在Excel中设置PowerPoint中的表格样式 – 2013
我有以下代码块循环通过工作簿中的表名称数组。 它是一个来自调用过程（callback）的ParamArray。 它复制每个表并将其粘贴到PPT幻灯片。 然后它创build一个文本框，这是表格的标题。 我正在使用目标样式（我认为是默认）粘贴它，因为我想使用PPT样式。 我从Excel粘贴的对象是一个表格。 粘贴后如何改变表格的样式，使第一行加粗？ 更改PowerPoint表格样式似乎没有很好的logging。 我尝试了下面的评论部分，但没有奏效。 谢谢！ For i = LBound(vObjects(0)) To UBound(vObjects(0)) Set practice = ActiveWorkbook.Worksheets(Range("T_" & vObjects(0)(i)).Parent.Name).ListObjects("T_" & vObjects(0)(i)) practice.Range.Copy PPT_Slide.Shapes.Paste 'Special DataType:=ppPasteOLEObject, Link:=msoTrue Set PPT_Shape = PPT_Slide.Shapes(PPT_Slide.Shapes.Count) PPT_Shape.Name = "OBJ_" & vObjects(0)(i) ' With PPT_Shape ' .ApplyStyle "{C083E6E3-FA7D-4D7B-A595-EF9225AFEA82}", True ' .Rows(1).Font.Bold = True ' End With Set objPPT_MilestoneTextbox = […]
复制Excel表格粘贴到特定的PPT幻灯片
详情：Mac Excel（2016）复制到Mac PPT（2016） 最后，我想循环遍历所有表格，并在PPT中将每个表格粘贴到它自己的幻灯片中。 但首先我试图从Excel中复制一个表格并粘贴到特定的PPT文件（而不是networking新的演示文稿）。 Sub OpenPPTandCopySelectedTable() Dim PPT As PowerPoint.Application Set PPT = New PowerPoint.Application PPT.Visible = True 'Open the specific Template PPT.Presentations.Open Filename:="/Users/MyNameHere/Downloads/FileName.pptx" 'Make Specific File the Active Presentation Set PPPres = PPT.ActivePresentation 'Copy the Excel Table Range("Table1[#All]").Copy 'Select PowerPoint Slide number 2 PPT.Slides(2).Select 'Paste Special Application.ActiveWindow.View.PasteSpecial DataType:=ppPastePNG End Sub 我究竟做错了什么？ 任何帮助，将不胜感激。
