powerpoint

问题 I have a pptx file with a single shape. Setting it to 70% transaprent I can compare the pptx and see the only difference is in /ppt/slides/slide1.xml <a:solidFill> <a:schemeClr val="accent1"> <a:alpha val="40000"/> </a:schemeClr> </a:solidFill> Anyone have any idea how on earth "70%" translates to "40000"? 回答1: It seems different for me. My alpha values seem to use this function: y = -1000x + 100000 Where x is the percentage and y is the alpha value. I recommend you do the same (figure out a

问题 I can't find anywhere on the internet how to change the font of a textbox to small caps. I've tried many variations of the failing line but can't get it to work. Can someone help? With objPPTTextbox.TextFrame.TextRange .Text = "Title" .Font.Size = 14 .Font2.Smallcaps = msoTrue ---Fails here!--- .Font.Name = "Calibri" .ParagraphFormat.Alignment = 2 End With 回答1: Here is the answer thanks to this website objPPTTextbox.TextFrame2.TextRange.Font.Smallcaps = msoTrue 来源： https://stackoverflow.com

问题 Can anyone help me with the below code? I am trying to use VBA to remove any extra spaces in a PowerPoint presentation. Sub removeSpaces() Dim sld As Slide Dim shp As Shape For Each sld In ActivePresentation.Slides For Each shp In sld.Shapes Do While InStr(shp, " ") > 0 shp.Value = Replace(shp, " ", " ") shp.Value = Trim(shp.Value) Next shp Next sld End Sub When I currently run it, it shows an error of "Method or data member not found" and highlights the "shp.Value" part. 回答1: a Shape object

问题 <cfscript> filepath = ExpandPath("./1.ppt"); fis = CreateObject( "java", "java.io.FileInputStream" ).init(filepath); //initialize slideshow object with input stream src = createObject("java","org.apache.poi.xslf.usermodel.XMLSlideShow").init(fis); fis.close(); </cfscript> I am not able to initialize org.apache.poi.xslf.usermodel.XMLSlideShow object in coldfusion. Getting following error: Unable to find a constructor for class org.apache.poi.xslf.usermodel.XMLSlideShow that accepts parameters

问题 I need to progammatically embed Pdf documents in PowerPoint via OpenXml. According to this: Embedding files into Open XML documents using C# it is possible via OLE32.StgCreateStorageEx methods to create the necessary picture as well as the oleobject. Unfortunately this doesn't work with current versions of PDF. On a 64 bit OS, this seems to work only with Abobe version 9.Higher version fails with error code 0x8000FFFF which translates to Catastrophic failure. This is actual true after testing

问题 I have a PPT slide deck with multiple images. I am iterating through each slide and each shape. I would like to save each shape of type msoPicture as an Image: foreach (PPT.Slide slide in pptDoc.Slides) { foreach (PPT.Shape shape in slide.Shapes) { if (shape.Type == Microsoft.Office.Core.MsoShapeType.msoPicture) { Image img; //???? Save shape as image img.Save(filename); } } } 回答1: You can use the Shape.Export() method to create an image from an individual shape. For example like this:

问题 I have checked MSDN and there seems to be no unique ID (UUID or whatnot) property in the Presentation object model ( https://msdn.microsoft.com/EN-US/library/office/ff746640(v=office.15).aspx ) According to the code example, a Presentation can only be identified by a name only. e.g. Presentations("Sample Presentation").Slides.Add 1, 1 Is there anyway I can identify a presentation by way of an ID? Hopefully it will looks something like this Presentations("067e6162-3b6f-4abc-a171-2470b63dff00")

问题 I'm current using vba to automate the creation of a ppt report. I need to copy charts from excel and paste into ppt. I successfully used the ExecuteMso "PasteExcelChartSourceFormatting" to paste the chart in, which I need to use so I can paste while keeping the source formatting and embedding the workbook, but I keep getting an error after that when my code tries to reposition the chart in ppt. See code: Sub Update() Dim ppApp As PowerPoint.Application Dim ppPres As PowerPoint.Presentation

问题 I'm trying to convert an entire presentation to HTML, extracting all the embedded content etc along the way. I've got text, audio, narrations etc all working fine but am having trouble finding out how to export video content. Im looping through all slides in the presentation, then all shapes on the slide, looking for shapes of type msoMedia . If I find one, then I check it's MediaType . If it's ppMediaTypeMovie , then I can find the source file of an externally linked video file using Shape

问题 I have an VBA Macro that at times requires me to create a new slide with a new embedded excel spreadsheet, then edit that spreadsheet. A simplified version of this code: Dim sld As Slide Dim shp As shape Dim pptWorkbook As Object Set sld = ActivePresentation.slides.add(ActivePresentation.slides.Count + 1, ppLayoutBlank) Set shp = sld.Shapes.AddOLEObject(100, 100, 100, 100, "Excel.Sheet") DoEvents If shp.Type = msoEmbeddedOLEObject Then 'Error thrown here Set pptWorkbook = shp.OLEFormat.Object