powerpoint-vba

问题 I'm helping out one of my professors but what should be a simple task is starting to frustrate me. I do not have any experience with Visual Basic used to create macros in MS Office 2007, specifically PowerPoint '07. All I need is a macro for inserting a new equation into a PowerPoint slide, the macro will then be used as a button on the quick access toolbar. The macro should preform these two tasks: 1) On the Insert menu, click Object. 2) In the Object type list, click Microsoft Equation 3.0.

问题 I am trying to programmatically create a PowerPoint from graphs in Access. Ideally, when the graphs move over to PowerPoint they will become static pictures and not graphs still linked to the access data. I have tried procedures such as: Private Sub Command1_click() Dim pwrpnt as Object Dim Presentation as Object set pwrpnt = CreateObject("Powerpoint.Application") pwrpnt.Activate Set Presentation = pwrpnt.Presentation.Open("C:\test.ppt") Me.Graph1.SetFocus Runcommand acCmdcopy Presentation

问题 I want to write to a file every time a slide is changed (next/back) in PowerPoint. With presentation.pps I want to write in the file something like: presentation - slide 1 - 11h04m03s presentation - slide 2 - 11h04m34s Does anyone know how to do this? 回答1: Okay, so here's what you need to do. Note one thing important - a PPS does not include a method to have a macro start upon opening the PPS. If you want that functionality, create an add-in (ppa) instead. For the PPS, create a module and a

问题 Does anyone know how to detect the use of Theme fonts in Powerpoint 2007 slide objects using VBA? If one looks at Shape.TextFrame.TextRange.Font.Name the font name appears as simple name (ex: "Arial") whether or not the font was assigned as a fixed name or a Theme name (subject to change with the document theme). I don't see any other property in the Object Model that would flag the name as tied to a theme (such as ObjectThemeColor for colors). Thanks! 回答1: There is no direct method (that I

问题 I have a few .jpg files in C:\my_folder Here are their names: pic_1.jpg , pic_2.jpg , pic_3.jpg , pic_4.jpg , pic_5.jpg . What command or a group of commands in Power Point VBA should I use in order to be able to automatically create several frames in PowerPoint so that each frame would contain one picture? 回答1: This VBScript creates a new PowerPoint presentation and adds two slides to it, each with a picture. You will need to adjust the picture's location and size to suit your taste. Also

问题 I want to change the video format of the embedded videos that appears in a presentation. I achieve to export the video file to another folder using the following code: Dim Finame As Variant Dim oApp As Object Dim StoreFolder As Variant Dim Videoname As Variant Dim FileNameFolder As Variant MkDir "C:\template\videoZip" Set oApp = CreateObject("Shell.Application") FileNameFolder = "C:\template\videoZip\" Finame = ActivePresentation.Path & "\" & ActivePresentation.Name StoreFolder = "C:\template

问题 I have the below code that I have written to export "Chart1" from an Excel sheet called "Sheet1" to a new slide in a created instance of powerpoint: Sub ChartsToPowerPoint() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptSlideCount As Integer Dim ws As Worksheet Dim intChNum As Integer Dim objCh As Object 'Open PowerPoint and create a new presentation. Set pptApp = New PowerPoint.Application Set pptPres = pptApp

问题 My requirement is I have a Excel which contains some data. I would like to select some data from the excel and open a PowerPoint file and Create Table in PowerPoint and populate the data in to it Right now I have succeeded in collecting the data from excel opening a PowerPoint file through Excel VBA Code. Code for Opening the PowerPoint from Excel. Set objPPT = CreateObject("Powerpoint.application") objPPT.Visible = True Dim file As String file = "C:\Heavyhitters_new.ppt" Set pptApp =

问题 I want to show all the shape types that i have in a powerpoint presentation. I tried with those codes: Private Sub CommandButton1_Click() Dim it As String Dim i As Integer Dim Ctr As Integer ''''''''''''''''' 'Read-only Long ''''''''''''''''' For Each slid In ActivePresentation.Slides For Each s In slid.Shapes 'No need to select the object in order to use it With s 'But it is easier to watch when the object is selected 'This next line is for demonstration purposes only. 'It is not necessary s

问题 I have created some code in Excel VBA to create a PowerPoint presentation 1 slide for each row of Excel, and populate in a specific text box in PowerPoint. I now want to add in all the images that match the description. These are all Jpegs and not charts etc. How can I do this, and is it better to do this in excel, or is it better to do this Powerpoint VBA itself? Eitherway, would anyone be able to help me out with some code on how to do this please? The image frames already exist in