Visual Basic :: Export Excel Cells To PowerPoint Slide

Export Charts From Excel Into PowerPoint
Hi everyone, I need to export a chart from Excel into PowerPoint on multiple slides.  I got this code to work!  The problem is that I want it to place the charts on lets say slides 1, 3, and 5.  Right now the code places the chart in sequencial order.  I was thinking for the if statement to place a statement like the:

'If slideindex = 1 or slideindex = 3 or slideindex = 5 Then'

Please help!

Sub TestNew()

Dim objPPT As Object
Dim objPrs As Object
Dim shtTemp As Worksheet
Dim chtTemp As ChartObject
Dim intSlide As Integer

Set objPPT = CreateObject("Powerpoint.application")
objPPT.Visible = True
objPPT.presentations.Open ThisWorkbook.Path & "TestPP.ppt"

For Each shtTemp In ThisWorkbook.Worksheets
      For Each chtTemp In shtTemp.ChartObjects
      intSlide = intSlide + 1
      chtTemp.CopyPicture
      If intSlide > objPPT.presentations(1).Slides.Count Then     'I think this if statement needs to be changed
          objPPT.ActiveWindow.View.GotoSlide Index:=objPPT.presentations(1).Slides.Add(Index:=intSlide, Layout:=1).slideindex
       Else
          objPPT.ActiveWindow.View.GotoSlide intSlide
       End If
       objPPT.ActiveWindow.View.Paste      'This may have to be moved if the if statement is changed
   Next
Next

Set objPrs = Nothing
Set objPPT = Nothing

End Sub

Thanks in advanced!

Export Specific Excel Cells To Access
I need to be able to use VBA or VB, (or possibly another means), to be able to automate selection of specific data from an excel worksheet and place it in specific cells of an Access workbook. For example, say I have an excel sheet with 100 rows of useless data, then on row 101 I have a column heading (Heading 1) and in the rows under it I have Data 1, data 2, etc. At the of this sheet say around row 10-20, in column one I have a heading in column 1 (Heading 1-1), with the data to the right of it in the next columns on the same row. I need to be able to select specific data from this workbook, and export it to specific Access table locations. To trick things up even a little more, I may have a heading in Excel that says "Heading 4" and data relating to that heading. I need to move all of "Heading 4"'s data into Access and have it place it in another heading that is named differently. Is this even possible?? Or will I be copying and pasting what is potentially thousands of sheets?? HELP!!!

Parsing Addresses To Export Into Excel Cells
I have a plaintext list of addresses that I want to export into excel. The list looks like this:

Company1
Phone#
City, ST Zip

Company2
Phone#
City, ST Zip

Company3
Phone#
City, ST Zip

There are quite a few companies on the list and they are each separated by a blank line. What I am trying to end up with would be an excel spreadsheet like this:

Code:

C1 C2 C3 C4 C5
R1 Company1 Phone# City ST Zip
R2 Company2 Phone# City ST Zip
R3 Company3 Phone# City ST Zip

And I want to be able to put a ' in front of the company, phone, city, state, and zip. to make importing the data into outlook easier.

I tried parsing the addresses different ways, but just can't get anything to work.

Any help will be greatly appreciated. Thanks in advance!

How Do I Export A Range Of Excel Cells As A Text File?
Greetings,

I found this much on another site:

Code:

Worksheets(1).Copy
Activeworkbook.SaveAs FileName:="file1.txt", FileFormat:=xlTextMSDOS
Activeworkbook.close false

and it works, but it saves the entire worksheet. How can I save a specific range of cells only -- as a text file?

Thanks!
DM

Getting To The Next Slide In PowerPoint
I have seen several instances of code that allows you to advance to the next slide in PowerPoint, but all of these instances require that you be in Slide Show mode. I am looking for a way to advance to the next slide while outside of the slide show so I can then have visual basic delete and modify objects on the next page, which doesn't work if you are viewing the slide show. Any help would be appreciated.

Thanks

Powerpoint Slide Hyperlinks
I'm useing VB in a PPT presentation.... How would I link a labelbox to another slide in the presentation?

Showing A Slide In PowerPoint
Hi,

How do you show a certain of slide in MS PowerPoint using a command button? for example, I created several controls in Slide(5). During Slide Show, If I click on a command button, it shows Slide(10). How do I make it work?

Thanks,

TXK

RichTextBox And Powerpoint-Slide
Hallo and good evening.
I have here a Problem and no solution.
Ok here we go.
I have a Richtextbox and over a Button-Click event the text will copied into a Powerpointslide.
If the Textlength of the Richtextbox is shorter or exactly equal long of the Powerpointshape it works.
But if the Richtext is longer I have a Problem.
How can I programmed it that, if the Text is longer a 2. or x Powerslide will added and the rest of the Text will copy to the 2. or x Powerpointslide.
Thanks in advance and greetings

Powerpoint Slide Transitions In VB
Hello All,

Iam using Powerpoint API thru visual basic for opening a presentation which I have managed it. Can any one tell me how can I make slide transitions through my code? I will have a Browse button, which will open the presentation and Next and Previuos buttons, which will do the slide transitions.
Now how will I manage to make this Next and Previuos buttons to work.

Thnx in advance,
Pres.

Powerpoint Hide Slide
I'm trying to activate/deactive the "Hide Slide" option from within a Powerpoint2000 presentation using an ActiveX checkbox. Just some context: This is a flashcard program that displays all slides in a random order. The program must not show the flashcards that users already know, which they indicate by clicking the checkbox.

I have...

Sub CheckBox1_Click()
' If CheckBox checked then set Hide Slide option Active.
If (CheckBox1.Value = Checked) Then
ActivePresentation.Slides(2).SlideShowTransition.Hidden = msoTrue
ElseIf (CheckBox1.Value = Unchecked) Then
ActivePresentation.Slides(2).SlideShowTransition.Hidden = msoFalse
End If
End Sub

Any thoughts?

Trying To Close Powerpoint Pps Slide Programatically
I am trying to find out how to programatically close down Powerpoint programatically ina pps file. I have tried the application.quit command but PPt does not recognise it and goes straight to the <End of Presentation> black screen. I am slightly at a loss at what to do....if anyone can give something to get me started or a lead, it would be greatly appreciative.

Powerpoint Slide Navigation Using Combo Box?
I am not a programmer so I was wondering if there is anyway to code a combo box in Powerpoint so when you select an option in the drop down, it goes to different slides throughout the presentation based on your selection. If there is, does anyone have any sample code for this to get me started?

Or if you know of a site that would point me in the right direction, that would work too. Thanks!

Image To EXISTING Powerpoint Slide
this should be simple and i apologize if i am missing something stupid but i can not get this to work but every example i have looked at is either coded wrong giving me errors or deals with adding a slide then putting an image file on the slide

Dim oPP As PowerPoint.ApplicationClass
Dim oPresSet As PowerPoint.Presentations
Dim oPres As PowerPoint.PresentationClass

oPP = CreateObject("PowerPoint.Application")
oPP.Visible = True
oPresSet = oPP.Presentations
If firstpass = True Then
oPres = oPresSet.Open("c:plantest.ppt", , , True)
Else
oPres = oPresSet.Open("c:plan beta.ppt", , , True)
End If

oPP.ActiveWindow.View.GotoSlide(Index:=layoutvalue(x, 1))
Dim oSlide As PowerPoint.Slide

*** i thought one of the next lines would declare the oslide var to a slide but it is not working*****

'oSlide = opresset.ActivePresentation.Slides(layoutvalue(x, 1))
'oSlide = opresset.slides(1)

**** because i want to use this line to put the image to the slide****

oSlide.Shapes.AddPicture(spic, False, True, 150, 150, 500, 350)

if anyone can point me in the right direction or show me some example code it would be greatly appreciated.. again i apologize if i am doing something stupid.

THANKS!!!

Powerpoint Macro To Run Whenever A Slide Is Added?
is it possible to set up a powerpoint macro that would run whenever someone added a slide to the file?

Display A Webpage On A Powerpoint Slide
Hi,

how can i display a web page the only contains text on a powerpoint slide?

Hyperlinking To A Specific Slide In PowerPoint
I'm starting to wonder if this is actually possible. I'm using a web browser control in my project, and I want to use its Navigate method to navigate to a specific slide within a PowerPoint presentation. I thought I could do this using bookmarks, but PowerPoint doesn't let you insert bookmarks. I've tried making a hyperlink within PowerPoint to another slide, and then copying its notation for the link into my VB project, but I can't get it to work. Does anyone have any ideas on how I could go straight to the right slide? Thanks.

Is There A Way To Tell When A PowerPoint Slide Show Actually Starts?
I’m using the following code to run a large PP slide show. There is a finite amount of time between when the program gives the command to start and when the show actually starts (2-3 minutes in my case) I would like to play some background music during this time. Is there a variable that I could monitor to determine when the show actually starts? Or maybe some other method of doing slide shows with VB that would give me that capability.
VB Code:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Const RPC_E_CALL_REJECTED = &H80010001 Sub RunSlideShow(ByVal S As String) Dim PPT As Object Dim Pres As Object Dim SSW As Object Dim State As Long On Error Resume Next Set PPT = CreateObject("PowerPoint.Application") Set Pres = PPT.Presentations.Open(S, False, False, False) Set SSW = Pres.SlideShowWindow If SSW Is Nothing Then Set SSW = Pres.SlideShowSettings.Run End If State = SSW.View.State Err.Clear Do While (Err.Number = RPC_E_CALL_REJECTED) Or (Err.Number = 0) DoEvents Sleep 1000 State = SSW.View.State Loop Pres.Close PPT.Quit Set Pres = Nothing Set PPT = NothingEnd Sub

[CLOSED] Powerpoint Slide Inside VB
i have searched and i have not found anything conclussive to help me with what i need to pull off

i know it is doable because the technician pulled it off with vb6 about 6 months ago

this is what i need to do
load a slide show inside the vb window and then exit out in 7 seconds
in FULL screen mode
also there can be no interaction (kiosk mode) no right clicking, no controls shown

what this is being used for is to show advertisment at logon

any help is much appricated, thx

Playing A Powerpoint Slide Show. --
Is there a control out there for free which will play powerpoint slide shows? Ideally with the ability to control the show aswell.
This isn't really my area of expertise so I'd be gald if anyone can help me out.

Thanx

PowerPoint Slide Show Capture
Hi, I am trying to capture the forward and backward events of a PowerPoint Slide show.

NOTE: I am using a mouse connected to my computer (Windows 2000) through USB port.

Any suggestion/help is greatly appreciated.
Thanks alot,
-PG

Refresh Slide Display Powerpoint
Hi
I want to have some text (probably in a label) pop-up when I click on an icon in a PowerPoint Presentation. I can change visibility of the Label object but the display doesn't show the change.
How do you get a slide in a PPT presentation to refresh/re-display ??

Thanks for any help.

Richard

Activating VBA With Slide Transition In PowerPoint?
Is there any way to activate VBA code when a new slide is automatically selected (timed transition) in Power Point? Any good books that deal with this and/or related topics?

VBA And Powerpoint 97 Add Photo To Slide Problem
hi all
been having a little problem i want to insert a photo onto a slide and keep the photos natural proportions, but in pp97 the addpicture function has the width and height attributes as non-optional, which when automated brings in all the photos the same size, which is no good to me as i need to place the photo on the correct background according to its natural dimensions. In pp2000 the attributes are optional and it works perfectly.

I have tried the addOLEoject function this seems very slow and has given problems by not diplaying the photo only an icon....indicating jpeg

A solution to this problem would be great as this is quite urgent
many thanks

martin.

Listing All The Objects In Powerpoint Slide In VBA
Dear ALL:

Can someone tell me how can i use VBA to list all the items in a powerpoint slide?

I mean, if say in slide 1, i have a few images and a few text box with some animations etc, how can i use VBA to lisr all of them?

TIA

Medical Doctor
CBT/Web CBT Consultant
Network Supporter
Multimedia Developer
VB and VBA Specalist

Company URL: Http://webcbt.ch
Toolbook Developers Network URL: Http://webcbt.ch

Powerpoint - Stop Slide Transition Query
I have disabled the slide transition on mouse click, but when you move the rollerball, the slide moves onto the end of the slide show (a blank screen). Is there anyway of disabling that also with or without vba?

Powerpoint: Removing Shapes On Slide Change
I dynamically add a few shapes to a Slide to simulate a dropdown menu. I ran into a problem deleting the shapes again however.

Because I write shapes they are actually added to the slide and won't disapear anymore. I know how to dynamically delete a shape. That is not a problem. But I want to do this when the user goes to the next slide. I could unfortunatly not find any event that is triggerd upon moving to a next slide. Is this at all possible? Am I simply missing something?

In the ideal situation the user would click on a "menu item" (a shape), which opens up the dropdown menu (a collection of dynamically writen shapes) and when the user clicks anywhere but the dropdown menu all those shapes making up the dropdown menu would be deleted again.

I have no problem detecting my dropdown menu, nor with deleting slides. I am most of all looking for an event or any other possible way to trigger my code when the user clicks to go to the next slide.

Thanks in advance to anybody who can help me!

Automating Addition Of Text To PowerPoint Slide
What is the proper syntax for using VB script to add text to a PowerPoint slide? For some reason I cannot get this to work successfully. Thoughts?

Populating Textbox In A Powerpoint Slide Via VB Application
Hi,

Can you please tell me how to Populate Textbox in a powerpoint slide via VB application

Thanks
Rahman

I Am Using DCOM In VB. Importing Mschart 8 In Powerpoint Slide Using OLE.
I am using DCOM in VB. Importing mschart 8 in powerpoint slide using OLE. It works fine when server is in logged on mode but if server restarts or no body is logged on I got this error.

"Application-defined or object-defined error"

what I understands it fails at some windows 2000 service, but unable to determine which service is this.

For reference the line where it gives me the error is

Set shpGraph = ppslide.Shapes.AddOLEObject(160, 250, 480, , "MSGraph.Chart", , msoFalse, , , , 0).OLEFormat.object

shpGraph.ApplyCustomType 22, "3Lines1Bar"
FndGraph = True

Delay Starting Slide Show In Powerpoint
I use pcAnywhere to remotely control another computer running a Powerpoint presentation 24/7. When I disconnect the pcAnywhere, it turns off the Powerpoint presentation as well.

Powerpoint uses macros which uses visual basic.

I want to be able to activate the macro, which will turn on the presentation. I need to have enough time to disconnect the pcAnywhere program. I need a delay of about 15 seconds or so.

Sub StartShow()
'
' Macro recorded 2/19/2007 by DHW
'

With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = msoTrue
.ShowWithNarration = msoFalse
.ShowWithAnimation = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.SchemeColor = ppForeground
.Run
End With
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerAlwaysHidden

End Sub

Any ideas?

triumphguy

Capture The Time That Has Passed On A Powerpoint Slide
Hi!

I'm creating a Powerpoint presentation where the viewer would have to answer some questions in a textbox and then click on a command button to move on to the next page.

I would like to record how long the person takes before clicking on the 'Next' button. I'm trying to use the SlideElapsedTime Property in my code, and display the timing taken on a label. But the time recorded and displayed is 0 when I click on the button. Wondering if anyone can help me with this.

Thanks!

How To Distinguish Objects In Powerpoint Slide Presentation
i am running a powerpoint presentation through vb.I have inserted some objects such as movie clips,charts,pictures in the slides.What i would like 2 do now is that soon as the first slide runs the prograqm should be able to check the contents of each slide objects i.e if it finds a movie clip or a picture object ,then it should be exported as a JPG extension to a particular folder created by me anf for any other objects such as chart or text boxes it shoud be exported with an GIF extension to the folder created by me.How do i distinguish between the objects in the slide?

Convert PowerPoint Slide To Good Quality Graphics
Hi all,

I am not sure whether I am posting in a right forum. I am looking for a open source/free software/way to convert a powerpoint file to graphics file. There is a way to convert the PPT slides to Image formats by File -> Save As. But the quality is not so good. So, I am looking for alternatives.

Currently my VB applciation opens the PPT and do save as Image. But I am looking for an alternative.

Please suggest me.

Thanks in advance.

I Am Using DCOM In VB. Importing Mschart 8 In Powerpoint Slide Using OLE. It Works Fi
I am using DCOM in VB. Importing mschart 8 in powerpoint slide using OLE. It works fine when server is in logged on mode but if server restarts or no body is logged on I got this error.

"Application-defined or object-defined error"

what I understands it fails at some windows 2000 service, but unable to determine which service is this.

For reference the line where it gives me the error is

Set shpGraph = ppslide.Shapes.AddOLEObject(160, 250, 480, , "MSGraph.Chart", , msoFalse, , , , 0).OLEFormat.object

shpGraph.ApplyCustomType 22, "3Lines1Bar"
FndGraph = True

PcAnywhere Turns Off Powerpoint Slide Show Upon Disconnect
My idea didn't work after all. A script was developed that tells
Powerpoint to run a slideshow 15 seconds after it is told to
run. This would allow time to "disconnect" pcAnywhere, with the
hopes that the slideshow would not stop running as well. The
slideshow ends up running, but not in full screen mode.

Something else has to be developed. Such as a script that when
started opens up Powerpoint, then the file, then starts the
slideshow, then makes adjustments in the settings. This must be
possible.

Can anyone come up with a way to do this?

Visual Basic Clear All Textboxes On A Powerpoint Slide
What do i need change in this code to make it work with a Powerpoint slide. Ive changed "frm As Form" to "sld As Slide7" "For Each ctl In sld", but it does not work!

Public Sub ClearAllText(ByVal frm As Form, ByVal ctl As Control)
For Each ctl In frm
If TypeOf ctl Is TextBox Then
ctl.text = ""
End If
Next
End Sub

Starting A Slide Show As The File Opens.. Vba Powerpoint
Im new here and wondering if anyone could help me out. I'm familiar with VBA in excel, but I am using it on PowerPoint for the first time. I wanted to know if it is possible to have a slide show start when the file is opened, so that say a user wouldn't have to go to Slide Show>View Show. any suggestions would be very helpful... thank you

kevin

Showing Powerpoint Slide Sorter Mode On Form
I need to show Powerpoint in slide sorter mode on a form where the user will be able to touch the slide and it will come up. I tried the slide icon that's provided, but you can't resize it, so that won't work. Any help will be appreciated. Thanks.

A Really Basic Question About Addressing A Textbox On A PowerPoint Slide From A Macro
I am trying to have PowerPoint create several slides that each have am image of a recursive mathematical function. I have written a macro that will create the desired number of slides and draw the image I want, but I can't get the program to put the elements of each cyles into a textbox on each slide. I have put the code of the macro below.

"cycle" is that array that contains the output elements of each cycle and "pts" is the array that has the coordinates of the points on the circle that represent each cycle's elements. I want to put the array "cycle" into a textbox on each page.

Code:
Const modulus = 10
    Const mult = 7
    Dim cycle(modulus)
Sub creatCycles()
'
' Macro recorded 5/11/2004 by
'
    Dim i As Integer
    Dim j As Integer
    Dim w As Integer
    Dim h As Integer
    Dim xc As Integer
    Dim yc As Integer
    Dim u As Integer

    'set slide dimensions
With Application.ActivePresentation.PageSetup
    .SlideWidth = 8.5 * 72
    .SlideHeight = 8.5 * 72
    h = 400
    w = 400
End With

     'set center and unit length
    xc = w / 2
    yc = h / 2
    u = xc

'create new window
    For i = 1 To modulus
        createNewSlide
    Next

'create cycle
For j = 1 To modulus

    cycle(1) = j

    For i = 2 To modulus
        cycle(i) = (mult * cycle(i - 1)) Mod modulus
    Next

'create coordinates of cycle's elements on the circle
    Dim pts(1 To modulus, 1 To 2) As Single

    For i = 1 To modulus
        pts(i, 1) = (Cos(6.28 / modulus * cycle(i))) * u + xc
        pts(i, 2) = -(Sin(6.28 / modulus * cycle(i))) * u + yc
    Next

'draw the cycle
    For i = 1 To modulus - 1
        Set myDocument = ActivePresentation.Slides(j)
        myDocument.Shapes.AddLine pts(i, 1), pts(i, 2), pts(i + 1, 1), pts(i + 1, 2)
    Next

    pts(modulus, 1) = pts(1, 1)
    pts(modulus, 2) = pts(1, 2)
Next
' createTextBox() here and enter the cycle's elements

End Sub

Sub createNewSlide()
'
' Macro recorded 5/12/2004 by
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank).SlideIndex
End Sub

Sub createTextBox()
Dim i As Integer
Dim modulus As Integer
modulus = 10
For i = 1 To modulus
    Set myDocument = ActivePresentation.Slides(i)
    myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    30, 462, 550, 100).TextFrame.TextRange.text = ""
Next
End Sub

I also want to draw "dots" on the circle where the cycle touches the circle. I hope that's clear.

I'm sure you can tell that I'm not a programer, so please keep the answer simple. All of the code I know I gained from letting the program write a macro and then I modified it. If you can recommend a good text, I would appreciate it.

Thanks,

Vicki

Edited by - vpayne on 6/1/2004 2:41:54 PM

Powerpoint Export
anyhow knows how to export graphs using VB to powerpoint and powerpoint slides format ?

Is It Possible To Export From VB To Powerpoint?
is it possible to export from a program created in VB to powerpoint?

Is It Possible To Export Data From VB To Powerpoint
Is it possible to export data from VB to Powerpoint

PowerPoint Export In VB Application
Hi,

I have a doubt. I am using powerpoint objects in my VB application.
This is to export the charts in my application to powerpoint. for that I am
using the Paste method of the Powerpoint shape object. But when I am
exporting thru the application, if it has large number of slides for eg 1600
slides the application gives error. I have checked this and found that when
I am using the paste, the powerpoint creates an mso files in wmf format in
the Temp directory. So after a certain period the C drive becomes full and
the application fails to export.

I tried this paste operation manually(thru powerpoint application)
then also it creates the mso files in the temp directory...

Can u suggest any solution for this...

Thanks & regards
Swaminath

How To Export An MSAccess Report To Powerpoint
Any ideas how I can export an MSAccess97 Report to Powerpoint?

The closest thing I can do is export to .RTF, but characters are dropped when imported.

Screen grabs look blurry when imported.

Any MS based solutions?
Any 3rd party solutions?

Thanks,

Jeff

Export MsoShapeType MsoLinkedOLEObject From Powerpoint
HI,
I have used a macro to export images from Powerpoint. But when I try to use the
same code to export the same image from the same slide, it exports images of
EVERY slide in the presentation.

How can export all of the images, and only the OLE images from a PPT
presentation?

This should look at each shape on the slide, and if the msoShapeTypemsoLinkedOLEObject then it should select the shape and save it. Unfortunately,
it selects it, and then saves the entire presentation instead.

For f = 1 To numberOfShapes
valueOfTheShapeType = .Item(f).Type

If .Item(f).Type = 7 Then
'---- this should isolate only msoShapeType msoLinkedOLEObject

shapeName = .Item(f).Name

ActiveWindow.Selection.SlideRange(1).Shapes("Object 5").Select
'--I want to use a variable here instead of Object 5, but shapeName doesn't
work, In this case "Object 5" is the
'--object on this slide that I want to export

ActivePresentation.SaveAs FileName:="D:daily events 2001
ov 2001db ig
projectexported picsPicture3", _ FileFormat:=ppSaveAsPNG,
EmbedTrueTypeFonts:=msoFalse
'--This should save the image. When I record a macro to select and export the
image, this is the code that it uses.

End If
Next

If anyone can advise, I'd be grateful
Neil

Neil