Dear friends,
For your reference, here I am giving the solution.... Hope this may help somebody...
1) COLUMN3D.SWF<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
2) DATA.XML
<chart caption='Monthly Revenue' xAxisName='Month' yAxisName='Revenue' numberPrefix='$' showValues='0'>
<set label='Jan' value='420000' />
<set label='Feb' value='910000' />
<set label='Mar' value='720000' />
<set label='Apr' value='550000' />
<set label='May' value='810000' />
<set label='Jun' value='510000' />
<set label='Jul' value='680000' />
<set label='Aug' value='620000' />
<set label='Sep' value='610000' />
<set label='Oct' value='490000' />
<set label='Nov' value='530000' />
<set label='Dec' value='330000' />
<trendLines>
<line startValue='700000' color='009933' displayvalue='Target' />
<line startValue='800000' color='009933' displayvalue='Target' />
<line startValue='300000' color='009933' displayvalue='Target' />
</trendLines>
</chart>
<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />
3) Open powerpoint presentation -> insert shockwave object -> select properties -> set movie property as
Column3D.swf?dataXML=<chart><set value='50' /><set value='50' /><set value='100' /> </chart>
Please Note (set movie property as):
To get data from xml file to chart (dataURL)
Column3D.swf?dataURL=C:Documents and SettingsDesktopFusionCharts in PowerPoint ExampleFusionCharts in PowerPoint Exampledata.xml
To pass data directly to chart (dataXML)
Column3D.swf?dataXML=<chart><set value='50' /><set value='50' /><set value='100' /> </chart>
(Using macro is optional: It is your choice)
Write the following Macro in Powerpoint :
Sub StartShow()
Dim movieString As String
Dim yesNoResule As VbMsgBoxResult
movieString = "file:///" & Replace(CurDir, "", "/") & "/Column3D.swf"
yesNoResule = MsgBox("Select Yes to use dataURL." & Chr(10) & "Select No to use dataXML.", vbYesNo + vbQuestion, "FusionCharts")
If yesNoResule = vbNo Then
movieString = "Column3D.swf?dataXML=<chart><set value='50' /><set value='50' /><set value='100' /> </chart>"
End If
Slide1.ShockwaveFlash1.FrameNum = 0
Slide1.ShockwaveFlash1.Playing = True
ActivePresentation.SlideShowSettings.Run
Slide1.ShockwaveFlash1.Movie = movieString
End Sub
Description:
When you run the StartShow Macro, it will bring up a Message Box. It will ask
