powerpoint

问题 Using vbscript I'm attempting to automate the creation of a PowerPoint presentation. The reason for it is that I have a folder with several dozens of png images which I need to insert into the same slide at the same position. They're all transparent and form one large image. However, I need to show one after the other until the full image is revealed. So instead of doing it by hand I came up with the following vbscript: Set powerPointApp = CreateObject("PowerPoint.Application") Set fileSystem

问题 I am creating a script that copies slides from various other .pptx files into a Master PowerPoint, but if one of the files is opened by another User at the same time the macro executes I receive an 80004005 error. My script is as follows: Public Sub Update() Dim PPTApp As Object Dim PPT As Object Dim MasterPPT As Presentation Dim Total As Integer Dim FSO As New Scripting.FileSystemObject Dim Folder As Scripting.Folder Dim SubFolder As Scripting.Folder Dim File As Scripting.File Set MasterPPT

问题 I am trying to preapre a macro that would convert all equations in a PowerPoint2010 presentation into images while retaining the position and animation effect/order. Based on the tip provided here (thanks to Steve Rindsberg), I have modified the script as below: Sub ConvertAllShapesToPic() Dim oSl As Slide Dim oSh As Shape On Error Resume Next For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes ' modify the following depending on what you want to ' convert Select Case oSh

问题 I am using a small VBA program to apply some text in the background. I am able to apply watermark but if I use any image in the presentation then the watermark goes behind that image. Is there any way to keep the watermark always in front. I am using this code to apply watermark : Dim cntDesigns As Integer cntDesigns = ActivePresentation.Designs.Count For iter = 1 To cntDesigns Dim curDesign As Design Set curDesign = ActivePresentation.Designs.Item(iter) ' EnumerateMasters Dim masterCount As

问题 This question already has an answer here : Alternative for visio server-side automation (1 answer) Closed 2 years ago . I am working on an app that will allow the user to upload a presentation, edit it, and then download the final output as another PowerPoint presentation. I have very unstable behavior for different presentations that I upload: Sometimes the changed images are blurred (Not sure why?) Sometimes incorrect shape ids are returned, and therefore I can not merge the changed work

问题 I know this question is already ask but here is some different scenario. So i wants to search integer from whole textarea. If found then check is it have decimals number more than 2 ( e.g. if numberfound=13.656 then round off to 13.66 ) if no then round off it. so if in one textarea there is more than one integer then it should check all of those. As i try to write code for finding specific character or number. but i am not getting it how to find whole integer(means no from 0 To 9). Below is

问题 I have the following code to open a worksheet, copy one chart, open a presentation and paste it. It work fine, for one chart and one slide, but in the XLSM there's 8 charts and so 8 slides in PPTX, i don't know how to select for example, the second chart and paste it into the second or third slide of the presentation. With the PowerPoint.Slide curSlide = pptApp.ActiveWindow.View.Slide; it selects the current slide or slide 1. using System; using System.Collections.Generic; using System

问题 I use openxml sdk 2.5 in combination with the power tools by Eric White. I've managed to create dynamic pptx presentations using template files. (In C#) Unfortunately the thumbnail gets lost during the process. Is there any way to (re)create the thumbnail of a pptx-file using openxml or power tools? I successfully wrote some code that changes an existing thumbnail with an image. But when there is is no thumbnail it gives me a System.NullReferenceException . Here is the code: using

问题 How can I fill an entire PowerPoint slide with an R plot? I'd like to use vector graphics (otherwise screenshot and crop would be a solution). I'd also like to avoid manual touches. The following code (grabbed from this post) does a perfectly fine job of filling the "Content" of a "Title and Content" slide. library( ReporteRs ) require( ggplot2 ) mydoc = pptx( ) mydoc = addSlide( mydoc, slide.layout = "Title and Content" ) mydoc = addTitle( mydoc, "Plot examples" ) myplot = qplot(Sepal.Length

问题 I have a PowerPoint with the following macro: Sub test() MsgBox "testing" End Sub And a PowerShell script like this: $ppt = New-Object -ComObject PowerPoint.Application $presentation = $ppt.Presentations.Open("test.pptm") $ppt.Run("test") But running the macro just gives: Cannot find an overload for "Run" and the argument count: "1". At line:1 char:1 + $ppt.Run("test") + ~~~~~~~~~~~~~~~~ + CategoryInfo : NotSpecified: (:) [], MethodException + FullyQualifiedErrorId :