tag:blogger.com,1999:blog-7603152763857688635.post3924801661867502750..comments2023-07-23T12:42:14.354+02:00Comments on Sparklines for Excel®: Installer for pre-release of v3.4 for XL 2003Mes Courshttp://www.blogger.com/profile/09265743268811431064noreply@blogger.comBlogger7125tag:blogger.com,1999:blog-7603152763857688635.post-30227583133685428022009-07-24T23:48:10.647+02:002009-07-24T23:48:10.647+02:00Thank you so much for the great tool! When I was g...Thank you so much for the great tool! When I was going through all the options, I did find there was an undocumented functionality for the AreaChart. Right after the "Line2" argument, and right before the "ColorPositive" argument, there is a "ColorThreshold" argument.<br /><br />thanks again for your hard work!Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7603152763857688635.post-30695061198064555592009-04-07T20:33:00.000+02:002009-04-07T20:33:00.000+02:00Fabrice, this is a great tool, and I've been enjoy...Fabrice, this is a great tool, and I've been enjoying implementing it into dashboards that I've been developing. One suggestion for the barchart would be to allow the user to change the color of a particular bar (say the last one in the series). Just a thought, keep up the good work!Chrisnoreply@blogger.comtag:blogger.com,1999:blog-7603152763857688635.post-62930840494791999072009-04-02T17:43:00.000+02:002009-04-02T17:43:00.000+02:00Thanks Vincent, Seams to work OK.RegardsFabriceThanks Vincent, <BR/>Seams to work OK.<BR/><BR/>Regards<BR/><BR/><BR/>FabriceAnonymoushttps://www.blogger.com/profile/08789783572975435363noreply@blogger.comtag:blogger.com,1999:blog-7603152763857688635.post-59588799677043748032009-04-01T14:22:00.000+02:002009-04-01T14:22:00.000+02:00Great Tool!!!A quick one one the pre-releaseI had ...Great Tool!!!<BR/>A quick one one the pre-release<BR/>I had to fix the "erase only Sparklines" macro as it also erased normal graphs.<BR/><BR/>For some reason, it seems to loop more than necessary when creating the colQueue collection. In the code below I've added another collection holding target cells (as there can be only 1 unique graph by target cell) to avoid this<BR/><BR/>Here's an example on one function<BR/><BR/>Option Explicit<BR/>Private colQueue As New Collection<BR/>Private colTarget As New Collection<BR/><BR/><BR/>Public Function AreaChart( _<BR/> Points As Range, _<BR/> Optional Mini As Variant, _<BR/> Optional Maxi As Variant, _<BR/> Optional Line1 As Variant, _<BR/> Optional Line2 As Variant, _<BR/> Optional ColorThreshold As Variant, _<BR/> Optional ColorPositive As Long = 9211020, _<BR/> Optional ColorNegative As Long = 203 _<BR/>) As String<BR/><BR/><BR/>On Error GoTo Error_Handler<BR/><BR/> Dim Cht As AreaChartClass<BR/> Set Cht = New AreaChartClass<BR/> Set Cht.Destination = Application.Caller<BR/> Set Cht.Points = Points<BR/> Cht.Mini = Mini<BR/> Cht.Maxi = Maxi<BR/> Cht.Line1 = Line1<BR/> Cht.Line2 = Line2<BR/> Cht.ColorThreshold = ColorThreshold<BR/> Cht.ColorPositive = ColorPositive<BR/> Cht.ColorNegative = ColorNegative<BR/> <BR/>On Error GoTo exit_here<BR/> colTarget.Add Cht.Destination.Address, Cht.Destination.Address<BR/> colQueue.Add Cht<BR/> <BR/>GoTo exit_here<BR/><BR/>Error_Handler:<BR/> MsgBox "An error occured: " & Err.Number & " - " & Err.Description<BR/><BR/>exit_here:<BR/> Set Cht = Nothing<BR/> AreaChart = ""<BR/> <BR/>End Function<BR/><BR/>the Drawchart sub is then modify to have the following lines: <BR/><BR/>....<BR/> Application.Wait DateAdd("s", 0.00001, Now)<BR/> 'colQueue.Remove (i)<BR/> Next<BR/> <BR/> Set colQueue = Nothing<BR/> Set colTarget = Nothing<BR/><BR/>I hope that might help some people that are facing long calculation times.<BR/><BR/>HerissAnonymoushttps://www.blogger.com/profile/06008508605340950480noreply@blogger.comtag:blogger.com,1999:blog-7603152763857688635.post-39156227931460071442009-03-25T23:53:00.000+01:002009-03-25T23:53:00.000+01:00Keep it going Fabrice. It`s an incredible work you...Keep it going Fabrice. It`s an incredible work you are doing.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-7603152763857688635.post-36749269479168284882009-03-19T14:26:00.000+01:002009-03-19T14:26:00.000+01:00Users don't necessarily have to manually enable th...Users don't necessarily have to manually enable the addin in Excel. I have an addin installer that runs an executable I wrote that just goes and finds the xla file, and registers it in Excel.<BR/><BR/>The only code you need is to get an Excel Application object, then execute:<BR/><BR/>set xlAddin = XLApp.Addins.Add( FilePath )<BR/>xladdin.installed = true<BR/><BR/>and that should do it...Zaphod at Homehttps://www.blogger.com/profile/04786844660421384689noreply@blogger.comtag:blogger.com,1999:blog-7603152763857688635.post-71150181359796780952009-03-19T12:54:00.000+01:002009-03-19T12:54:00.000+01:00please keep also a standalone xla version if possi...please keep also a standalone xla version if possible, all of us corporate users will need to go through IT each time we want to upgrade (most corporate firewalls are blocking exe files)Anonymousnoreply@blogger.com