A
Acheron
Hello Everyone,
In our company, we automated Office in order to get our business reports
quicker.
From Access, a form allows the users to get a report by selecting different
tables producing charts.
With VBA, an Excel instance is open from Access, and throug different
"Call..." instructions, various macros are run in Excel in order to format
and send the resulting charts into a brand new PPT Presentation.
We have the following problem : we added on each chart (sheet, not embedded)
a text box containing the data & other source informations. This text box
should be displayed on the bottom (ie kind of footnote). Unfortunately, when
generating the report, the chart is properly displayed on the slide... but
the text box disappears. But, double-clicking on the chart then on the slide
makes the text boxes appear properly.
Trying to solve this issue, we generated the PPT Presentation by running
manually the procedure from Excel... in this latter case, everything seems
perfect. The text boxes are there, correctly displayed...
Does anyone have an idea regarding this issue ? TIA for your precious help.
Acheron
NB :
- We saw the issue mentioned in the MSDN Library, concerning this problem
between Excel & PPT. It seems that the solution's not there !
- Office XP, latest SP
- Code parts...
'***** Excel procedure call from Access
Call RunExcelMacro(pthExcel, "MacroName")
'***** Excel procedure to generate PPT Presentation
(...)
Dim ch as Chart
Dim dblWidth, dblHeight as Double
(...)
For Each ch in ThisWorkbook.Charts
'Copy Chart to temporary workbook
ch.Copy
(...)
Set pptSlide = .Add(.Count + 1, pptLayoutBlank)
pptSlide.Shapes.AddOLEObject Left:=45, Top:=105, _
Width:=dblWidth, Heigh:= dblHeight, _
Link:=msoFalse
In our company, we automated Office in order to get our business reports
quicker.
From Access, a form allows the users to get a report by selecting different
tables producing charts.
With VBA, an Excel instance is open from Access, and throug different
"Call..." instructions, various macros are run in Excel in order to format
and send the resulting charts into a brand new PPT Presentation.
We have the following problem : we added on each chart (sheet, not embedded)
a text box containing the data & other source informations. This text box
should be displayed on the bottom (ie kind of footnote). Unfortunately, when
generating the report, the chart is properly displayed on the slide... but
the text box disappears. But, double-clicking on the chart then on the slide
makes the text boxes appear properly.
Trying to solve this issue, we generated the PPT Presentation by running
manually the procedure from Excel... in this latter case, everything seems
perfect. The text boxes are there, correctly displayed...
Does anyone have an idea regarding this issue ? TIA for your precious help.
Acheron
NB :
- We saw the issue mentioned in the MSDN Library, concerning this problem
between Excel & PPT. It seems that the solution's not there !
- Office XP, latest SP
- Code parts...
'***** Excel procedure call from Access
Call RunExcelMacro(pthExcel, "MacroName")
'***** Excel procedure to generate PPT Presentation
(...)
Dim ch as Chart
Dim dblWidth, dblHeight as Double
(...)
For Each ch in ThisWorkbook.Charts
'Copy Chart to temporary workbook
ch.Copy
(...)
Set pptSlide = .Add(.Count + 1, pptLayoutBlank)
pptSlide.Shapes.AddOLEObject Left:=45, Top:=105, _
Width:=dblWidth, Heigh:= dblHeight, _
Link:=msoFalse