Tag: powerpoint

在EXCEL 2010中复制和粘贴范围VBA PowerPoint

这是我目前使用的代码。 我想复制和粘贴范围到一个特定的Powerpoint。 我可以使用下面的代码来做到这一点,但质量不是很好,我希望有另一种解决方法。 Sub This () Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide ' Reference existing instance of PowerPoint Set PPApp = New PowerPoint.Application Set pptPres = PPApp.Presentations.Open("C:\Desktop\Template.pptx") Set PPApp = GetObject(, "Powerpoint.Application") ' Reference active presentation Set PPPres = PPApp.ActivePresentation Sheets("Test").Select Range("B6:Q46").CopyPicture ' Paste the range With PPPres.Slides(18).Shapes.PasteSpecial .Top […]

将Excel单元格粘贴到Power Point表格单元格时导致随机丢失的原因是什么?

每个月,我运行一个VBA程序,用新的数据(我从一个Excel文件中获取)更新上个月的数据表(Power Point幻灯片)。 我使用下面的VBA函数来粘贴数据。 Function PastePcts(ByVal tbl As PowerPoint.Table, ByVal oldRow As Long, ByVal oldCol As Long, ByVal newRow As Integer, ByVal newCol As Integer) ' ' This function basically pastes data from Cell (oldRow, oldCol) of the current Excel ' spreadsheet to Cell (newRow, newCol) of the input PowerPoint table ' Cells(oldRow, oldCol).Copy With tbl.Cell(newRow, […]

如何将OOXML数据从Add in插入到Excel和Powerpoint中

嘿所以我有一个ppt和excel文件的OOXML强制types的数据,目前您只能使用office Js直接插入OOXML数据 我想知道是否有一个解决办法,在Excel中打开这个OOXML数据,并从我的地址添加Powerpoint? 谢谢

vba:右alignmentgraphics的标签(堆叠酒吧100%)

我有以下问题:我正尝试使用Excel中的数据在PowerPoint中创build图表。 一切工作正常,我打开PowerPoint,我创build一个图表 Set myChart = ppSlide.Shapes.AddChart2(297, xlBarStacked100).Chart 然后我从Excel复制我的数据到图表(包括项目的文本),最后我想格式化图表(大小,位置,颜色…)。 再次一切工作正常,唯一不工作的是滴答标签的排列。 它们自动右alignment,但是如果它们太长,需要2行,它们就会居中。 但是我想让他们右alignment。 我知道如何改变标签(使它变粗) myChart.Axes(xlCategory).TickLabels.Font.Bold = msoTrue 但我不知道如何正确alignment。 我不能使用macroslogging器,因为我不能在Excel中find这个函数,只能在ppt中find。 任何人有一个想法,我怎么能做到这一点? 预先感谢,并为我的英语不好…

如何将多个演示文稿(pptx幻灯片)与Apache POI中的embedded对象合并在一起

当一个XMLSlideShow包含一个embedded式Excel(XLSX)对象时,我有一个将多个PPTX幻灯片合并到一个Apache POI的问题。 文档看起来像这样https://poi.apache.org/slideshow/xslf-cookbook.html#Merge XMLSlideShow pptx = new XMLSlideShow(); String[] inputs = {"presentations1.pptx", "presentation2.pptx"}; for(String arg : inputs){ FileInputStream is = new FileInputStream(arg); XMLSlideShow src = new XMLSlideShow(is); is.close(); for(XSLFSlide srcSlide : src.getSlides()){ pptx.createSlide().importContent(srcSlide); } } FileOutputStream out = new FileOutputStream("merged.pptx"); pptx.write(out); out.close(); PPTX文件已创build,但已损坏。 “PowerPoint无法读取merged.pptx中的一些内容”。 我可以看到在加载PPTX时,embedded式excel由getAllEmbedds()方法返回: XMLSlideShow pptx = new XMLSlideShow(new FileInputStream("presentations1.pptx")) PackagePart embedded = pptx.getAllEmbedds().get(0); […]

从VBA访问串行端口的最佳方式是什么?

从VBA访问串行端口的最佳方式是什么? 我需要一些销售代表能够通过串行端口从PowerPoint中的操作button发送一个简单的string。 我通常不使用VBA,特别是对于这样的事情。 通常我会把它变成某种应用程序,但我其实并不认为这个想法是不好的。 这将是一个方便的工具,让他们在投影机上演示此设备,并与其他销售人员和非技术人员交谈。 另外,这个销售人员将不会对VBA或PowerPoint演示文稿进行小小的修改,但是在重新编译.NET应用程序时不会有任何问题。 我知道我们可以通过从动作演示中运行的batch file来完成,但是这并不会让我感到非常高兴。 我想我们可能可以访问一个COM对象并从那里运行,但是我再也不是真正了解VBA中使用的最新的和最大的库,也很快得到一个简单的入门知识,发送并closures连接。 由于这将需要在多人的电脑上运行,如果能够轻松地运送到其他机器上将是很好的。 我应该可以说它必须在Office 2007和Windows XP上运行。 与其他任何东西兼容将是一个不错的奖金,但。 我该怎么处理呢? 任何好的提示或技巧? 图书馆build议?

Powerpoint 2016年VBA图片

我对这一切有点新鲜感,有一个项目让我有点头脑发热,想知道我能否得到一点指导。 我会为你设置场景。 我有一个权力点,它有3层图片,他们都是卡。 背后是我的地方持有只是随机卡和价值。 第二层是Ace的一层,最后一层是卡背。 我有20套这3个图像我已经设置了一个很好的小旋转过渡,所以你点击他们旋转卡的触发器,他们的王牌将每次显示,因为它占位符之前。 这个想法是我有一个macros,这是我的重置,它会推动他们所有的后面使用ZOrder msoSendToBack。 第二个macros将随机带3个ace向前3次,所以它们与该层内联,然后需要首先显示。 现在我面对的问题是VBA代码。 Sub Reset() ActiveWindow.Selection.SlideRange.Shapes("Picture29").Select ActiveWindow.Selection.ShapeRange.ZOrder msoSendToBack End Sub 这是我通过一般查找find的代码。 我会感谢任何指导或build议,我意识到我可能正在做这个更难的方法。 我只是一名软件工程专业的学生,​​对此我毫无新意。 但是用C#或者Java更强大一些。 但是,诚实地说,任何事情都会变得沉闷。

从Excel创buildPowerPoint电子表格

我正在尝试转换和/或系紧我的演示文稿。 我在下面的网站中find了VBA代码,代码稍微修改了一下,附在下面。 不幸的是,我不适合电子表格和演示文稿。 你可以看到以下的白色区域: 。 不知道如果你有任何解决我的问题。 Sub WorkbooktoPowerPoint() 'Step 1: Declare your variables Dim pp As Object Dim PPPres As Object Dim PPSlide As Object Dim xlwksht As Worksheet Dim MyRange As String Dim MyTitle As String 'Step 2: Open PowerPoint, add a new presentation and make visible Set pp = CreateObject("PowerPoint.Application") Set PPPres = […]

如何使用powerpoint在VBA中打开excel前景

我正试图在PowerPoint演示文稿中打开一个Excel文件。 这是我的代码: Sub diversestickersKoole() Dim xlApp As Object Dim xlWorkBook As Object Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlWorkBook = xlApp.Workbooks.Open("V:\Oliedocs\Koole\Stickers Scheepstanks Koole.xltm", True, False) Set xlApp = Nothing Set xlWorkBook = Nothing End Sub excel文件在后台打开。 这必须在前台。 有人能帮我吗?

PowerPoint幻灯片更新/填充embedded的Excel表格在鼠标点击幻灯片

我需要创build一个简单的幻灯片幻灯片幻灯片与一个表或图表作为记分牌。 在公布结果期间,我需要控制结果的显示,例如通过像正常的幻灯片中的鼠标点击。 另外我需要控制显示结果的顺序(我的意思是需要首先显示最less的点数的团队等) 我需要在值更改时dynamic地对表进行sorting。 我已经做了第三点(当'SUM'列中的值改变时自动sorting表)。 我用我所需的表创build了Excel工作表,并在代码下面应用自动sorting表。 Private Sub Worksheet_Calculate() On Error Resume Next Range("A3:H8").Sort Key1:=Range("H3:H8"), _ Order1:=xlDescending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom End Sub 我通过使用粘贴特殊选项的链接添加到幻灯片幻灯片,当我更新Excel中的数据,PowerPoint中的数据也改变(但也不是每次都有效,有时我需要在PowerPoint中右键点击并实现连接)。 但是当我运行幻灯片,这是行不通的。 这里是表的例子: ——————————————————– | Team | Round 1 | Round 2 | Round 3 | Round 4 | Total | ——————————————————– | T1 | 2 | 3 | | […]