Tag: powerpoint

如何在PowerPoint中使用VBA将不同的Excel行粘贴到彼此顶部？: 我有一个Excel 2013电子表格（使用Windows 10,64位），包含十五列和具有人员数据的variables行。我的办公室正在将Excel中的各行按照PowerPoint中的形状进行剪贴，并通过划分来组织数据。这是手动完成的。我的同事手动通过数百行，没有任何VBA。从Excel中的第一行复制数据将其作为文本框或形状粘贴到PowerPoint中调整文本框的大小以适应自己的分区或列更改某些文本框的文本颜色和边框属性将文本框移到幻灯片上的所需位置重复下一行，直到完成。 VBA应该自动化这个过程。最终的PowerPoint必须在单张幻灯片上显示组织结构图。我的电脑屏幕上的文本框应该显得很小（几乎不可读）。完美的海报大小打印出来。为了testingVBA代码，我在单元格B2：O215中放置了随机数字。在A栏中，我列出了“Div A”，“Div B”，…，“Div E”等各个部门的名称。 VBA应该：循环并复制Excel数据的每一行（从第2行开始）使用开关…案例来识别部门（例如案例“Div A”）使用案例“Div A”，将Excel行粘贴到幻灯片中的PowerPoint中使用案例“Div B”，将Excel数据粘贴到“Div A”右侧重复每个部门保持每个分部专栏之间的空间。每个数据形状的宽度应该是2“（所以2 * 72我认为）如果D列中的一个随机数字<0.2，则文字为红色下面的代码将Excel数据叠加在一起，以便您不能看到它们。我希望能够看到每个数据行看起来像一个表。每一行都必须是明确的，所以领导才能移动它们。有时，代码会过早停止。最后，我不知道如何实现上面的第8步。 Sub ExcelRangeToPowerPoint() Dim PowerPointApp As Object Dim myPresentation As Object Dim mySlide As Object […]

使用VBA将图表从Excel导出到Powerpoint: 因此，经过一番挖掘，我得到了一些帮助，find一个代码，从Excel导出图表到PowerPoint，问题是它只是select一个对象。 Sub ertert() With New PowerPoint.Application With .Presentations.Add With .Slides.Add(1, 12) ActiveSheet.ChartObjects(1).CopyPicture xlPrinter, xlPicture .Shapes.Paste .Shapes(1).Select .Application.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True .Application.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True End With End With End With End Sub 它所select的对象是一个更大的图表（对象本身被命名）中的图表/查找图像结果，所以基本上只得到该项目本身的一小部分。问题是我只是select一个项目出错了？另外我想知道如何修改这个代码添加到现有的Powerpoint（假设现有的Powerpoint已经打开）。

将Excel工作表粘贴到PowerPoint演示文稿: 我试图从Excel粘贴到完成的PowerPoint演示文稿。我从Peltier Tech和Spreadsheet Guru那里拿了一些代码。该macros旨在在Excel模板中生成另一个Excel工作表，然后将其粘贴到PowerPoint中。我testing了输出工作表本身的代码，它的工作原理。但是，在Excel模板中为macros执行macros时失败。我是否需要将输出工作表定义为对象variables？我怎样才能在Excel到Powerpoint的粘贴循环和MyRangeArray部分中引用该variables？请注意，objPPT在grandFinale（）的macros上游定义。 Sub grandFinale() Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim shp As Object Dim MySlideArray As Variant Dim MyRangeArray As Variant Dim x As Long Set objPPT = GetObject(, "Powerpoint.Application") Set PPPres = objPPT.ActivePresentation Set PPSlide = PPPres.Slides(objPPT.ActiveWindow.Selection.SlideRange.SlideIndex) 'declare pp slides MySlideArray = Array(13, […]

将excel对象从服务器链接到powerpoint: 有没有办法将位于服务器的Excel表格中的对象粘贴到我的本地PPT演示文稿中？他们都应该链接，以便每当服务器中的Excel文件更改，我的演示文稿链接到该文件也将更改。当我去粘贴我的PowerPoint演示文稿的特殊选项时，无法将服务器Excel对象粘贴为链接的对象。任何人有任何想法我怎么能这样做？感谢名单！

在PPT中查找形状，然后在文本中search该文本，复制列，然后将其粘贴回PPT作为表格: 这是我第一次真正尝试在VBA中创造一些东西，所以请温和。这是我需要我的程序做的事情：从PPT运行并打开一个Excel文件从幻灯片1开始，find一个包含单词“iq_”的框，如果它包含这些单词，那么它就会有像“iq_43”或“iq_43，iq_56，iq_72”那样的数字。在打开的Excel文件中find这些单词和数字。需要认识到“，”意味着有另一个条目。复制包含来自ppt的单词的列即。 “iq_43” 将这些值粘贴到ppt中为每张幻灯片做这个我的底部function有问题。这是程序应该转移到打开的Excel文件中工作的地方。这个想法是通过每列的标题，并search“iq_Array”中存储的值。一旦find值，然后将其下面的行复制到另一个名为“tble”的数组（最终将作为表格粘贴到幻灯片上）。代码现在停在 rng = Worksheets("Sheet1").Cells(1, i).Value 我不确定我在这里做错了什么。一旦修复，这将是能够被复制到一个数组？另一个我相信我遇到麻烦的部分是如何返回函数值。我现在有 xlFindText(iq_Array, xlWB) = tble() 在我的函数底部，以便在我的主代码中调用它。这是正确的方法吗？ Public Sub averageScoreRelay() 'Create variables Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Dim pptSlide As Slide Dim fileName As String Dim Shpe As Shape Dim […]

我如何build立一个随机在Excel中显示3个项目的评论套件？: 我试图build立一种方式，我可以显示名称和评论，从数据集中随机select3行，并以一个可见的方式显示它们。几乎就像一个文本仪表板。我有一个数据的例子可以在下面find 我有一个这个数据的完整列表，我想把它展示在一个对象中，一次显示3个，我可以添加增强function，使它看起来很棒

用于PowerPoint或Excel的insertFileFromBase64方法: 是否支持使用insertFileFromBase64的PowerPoint或Excel的insertFileFromBase64方法？是否有办法在Office 365 for PowerPoint或Excel中插入整个文档？感谢和问候，Praveen

运行时错误“13” – types不匹配: 我有一个macros，以通过以前select的Excel文件replacePowerPoint中的标签。不过，我有一个错误运行时错误“13” – types不匹配在以下行上： Destino = ActiveWorkbook.Sheets(SheetDestino).Range(CellDestino).Value 有没有人可以帮我澄清和纠正？ Dim pPPTFile As Presentation Dim sld As Slide Dim shp As Shape Dim i As Long Dim j As Long Dim m As Long Dim trFoundText As TextRange Dim ExcelFile Dim exl As Object Dim WB As Workbook Dim WS As Worksheet Set exl = […]

Excel图表导出到PowerPoint导出: 我有一个问题，试图通过Interop API使用C＃在PowerPoint中embeddedExcel图表。我需要得到这个Office2003的工作。我遵循的过程是，我使用Interop API从模板创build了一个PowerPoint。然后，我为每个图表插入一个新的幻灯片，并在这些幻灯片上添加一个Excel.Chart OLE对象。一切都很好。然后我进入该工作簿，更改数据，并使用图表向导更新第一张图表上的图表。最后我closures了excel工作簿。问题是在生成的PowerPoint幻灯片中图表无法正确显示。图表适应于已更改的数据，但图表本身的所有操作（如更改标题，数据范围，图表types等等）均未显示。它变得陌生。在PowerPoint中单击（不正确渲染）生成的图表，然后select打开或编辑，图表将立即刷新到正确的设置。当我closures图表并返回到powerpoint，图表正确呈现。我花了好几个小时来弄清楚发生了什么，但不知何故，似乎没有任何工作。我试着打电话给：所有图表生成后（这是OLE问题？）PowerPoint.Application.ActivePresenation.UpdateLinks（）。 Chart.Refresh（）; Workbook.RefreshAll（）; 有人可以给我提示什么需要做什么吗？我将发布我的代码插入下面的图表。 //Add the Workbook Excel.Workbook workbook = (Excel.Workbook)slide.Shapes.AddOLEObject(basePoint.X, basePoint.Y, chartSize.Width, chartSize.Height, MsoTriState.msoFalse).OLEFormat.Object; //update the worksheet with data Excel.Worksheet datasheet = (Excel.Worksheet)workbook.Worksheets["Sheet1"]; datasheet.Cells.ClearContents(); //set table contents //<<SNIP code that fills data sheet with contents from […]

在Powerpoint中将Excel图表复制到占位符: 我正在试图将Excel图表复制到Powerpoint中的特定占位符。我已经使用下面的代码来命名占位符 Sub NameShape() Dim Name$ On Error GoTo AbortNameShape If ActiveWindow.Selection.ShapeRange.Count = 0 Then MsgBox "No Shapes Selected" Exit Sub End If Name$ = ActiveWindow.Selection.ShapeRange(1).Name Name$ = InputBox$("Give this shape a name", "Shape Name", Name$) If Name$ <> "" Then ActiveWindow.Selection.ShapeRange(1).Name = Name$ End If Exit Sub AbortNameShape: MsgBox Err.Description End Sub 在Excel中，我已经走到了这一步： Sub […]