Here is the link I ask the question the first time.
http://vbaexpress.com/forum/showthre...9284#post59284
Can this code could be modified to work in power point?
Option Explicit
Sub CombineFiles()
Dim Path As String
Dim FileName As String
Dim Wkb As Workbook
Dim WS As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
Path = "S:\Conference\Presentaions" 'Change as needed
FileName = Dir(Path & "\*.xls", vbNormal)
Do Until FileName = ""
Set Wkb = Workbooks.Open(FileName:=Path & "\" & FileName)
For Each WS In Wkb.Worksheets
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next WS
Wkb.Close False
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
The reason is right now I'm showing all these worksheet tabs on a projector using excel at the production meeting. Can I run a macro on Excel or power point that it will copy each worksheet that are group objects and paste it in each individual slide in power point?
I found this code but it does not do exactly how I would like it.
Sub CopyXLChart()
Dim xlApp As Object
Dim xlWrkBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWrkBook = lApp.Workbooks.Open"S:\Conference\PresentaionsChart as of 10-19-2005.xls")
' Copy the 1st chart object on the 1st worksheet
' you can use Cut instead.
xlWrkBook.Worksheets(1).GroupObjects(1).Copy
'Pastes the contents of the Clipboard into the active view.
'Attempting to paste an object into a view that won't accept
'will cause an error. Look up the help file for more info.
ActiveWindow.View.Paste
' Close the open workbook.
' I have set the flag to FALSE so that in case I make any changes
' to the XL file I don't want to be prompted with the Save Dialog.
' No changes are saved
xlWrkBook.Close False
xlApp.Quit
Set xlApp = Nothing
Set xlWrkBook = Nothing
End Sub