powerpoint-2013

问题 I'm trying to reset the contents of some text boxes and labels when I change slides, but I'm struggling to get it to work. I've come up with this after doing a lot of googling and searching, but it doesn't seem to work. I'm trying to use the OnSlideShowPageChange event in PowerPoint 2013 and 2016, but it seems to have no effect. I'm not used to working with PowerPoint vba, so I might be doing something completely wrong. Edit: I've managed to find an alternative method of resetting the label

问题 In presentation mode, I want only unhidden slides to appear with consecutive page numbers. How can I avoid that hidden slides are counted? 回答1: Thank you Steve. I found an answer to my question elsewhere. The function below allows you to avoid that hidden slides are interfering with the slide numbers of unhidden slides in presentation mode. Sub Number_NonHidden() 'For v.2007 onwards only Dim osld As Slide Dim objSN As Shape Dim lngNum As Long 'check all slides For Each osld In

问题 First, open a new PowerPoint and Excel Document, then click on the first(or any) cell in the Excel document until the text cursor is visible, switch back to PowerPoint and run the following VBA code(Assuming you have at least one blank slide already present): ActivePresentation.slides(1).Shapes.AddOLEObject 30, 30, 100, 100, "Excel.Sheet" I receive the following error(on multiple systems): -2147467259 Method 'AddOLEObject' of object 'Shapes' failed If you close the separate Excel window, the

问题 I have created an application level Add-in for PowerPoint 2010/2013 using C# VSTO. The add-in is installed from msi installer file. The problem is that after I uninstall the add-in from the control panel and open a new PowerPoint presentation, the ribbon tab is still visible with all the functionalities correctly working. To remove the tab I have to do either of the following two things: Remove the add-in from the COM Add-ins list from the PowerPoint Developer tab. End the running instance of

问题 I have a command button and a text-box in the Slide Master of a PowerPoint presentation. I am trying to retrieve the PowerPoint's properties such as SlideID, SlideIndex and the name of the corresponding file and post them to the text box on the click of the command button. At the moment I have this code but its giving me an error: Sub CommandButton1_Click() Dim Index As Long Dim SlideId as Long Dim FileName as String TextBox1.Text = "SlideIndex:" & Index & "Slide ID:" & SlideId End Sub I want

问题 I am currently using this code to update all links in my powerpoint presentation: Sub UpdateLinks() Dim ExcelFile Dim exl As Object Set exl = CreateObject("Excel.Application") ExcelFile = "C:\Users\J\Documents\Reporting\Governance Physical Charts.xlsm" Dim i As Integer Dim k As Integer 'Go through every slide For i = 1 To ActivePresentation.Slides.Count With ActivePresentation.Slides(i) 'Go through every shape on every slide For k = 1 To .Shapes.Count On Error Resume Next 'Set the source to

问题 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

问题 With reference to POI - Cannot write to file while it is opened in Excel? The required functionality for my Java application under development is the PowerPoint version of the above: Using Java, create a slide and add content generated from captured application data, then add the slide to an existing PowerPoint file that is currently opened in Microsoft PowerPoint. If no PowerPoint file is opened, the Java application will first open Microsoft PowerPoint if necessary, then create a new, empty

问题 I encounter a problem to make my Office Addin works with my global keyboard on Powerpoint 2013 but not on the previous versions (2007 and 2010). I do not get any exception but it seems that the OnKeyDown event is never triggered on Powerpoint 2013, and I don't know why. I get the same problems on all versions of Windows (XP, 7, 8 & 8.1), on 32 & 64 bits environments. The version of Microsoft Office is 32 bits. Here is a code sample : using System; using System.Collections.Generic; using

问题 I am using the following code to add web browser control to PowerPoint slide, Set oShp = oSld.Shapes.AddOLEObject(Left:=100, Top:=100, Width:=200, Height:=300, Classname:="Shell.Explorer", Link:=msoFalse) The above code works fine in all PowerPoint versions except PowerPoint 2013 (32bit and 64bit) . I get the following error message, In PowerPoint 2010 (32bit and 64bit) the web browser control is added but the control is black until viewing it in Slide Show. Then it gets refreshed. How to fix