Vbsedit Toolkit
Create a Pivot Bubble Chart (with a filter)







' Create a Pivot Bubble Chart (with a filter)
' using Vbsedit's free Toolkit

Set pivot = CreateObject("Vbsedit.PivotTable")
pivot.Initialize 2,3

folder=Left( WScript.ScriptFullName, InStrRev( WScript.ScriptFullName,"\"))

name=Array("Nancy","Andrew","Janet","Margaret","Steven","Michael","Robert","Laura","Anne")
category=Array("Beverages","Condiments","Confections","Dairy Products","Grains/Cereals","Meat/Poultry","Produce","Seafood")

'Generates 100000 lines of random data
For i=0 to 100000
  n = Int((UBound(name) + 1) * Rnd)
  c = Int((UBound(category) + 1) * Rnd)
  sale=Int(Rnd*100)
  discount=sale*Int(Rnd()*20)/100
  pivot.Add name(n),category(c),1,sale,discount
Next

pivot.SetColumnNames "Employees","Categories","Number of orders","Sales","Discounts"
pivot.Finalize

pivot.LoadChartTemplate "bubble"
pivot.ReplaceTag "title","My Bubble Chart With a Filter"
pivot.SaveChart folder & "bubble1.htm"

Set shell = CreateObject("Wscript.Shell")
shell.Run folder & "bubble1.htm",1,False






search for scripts
VbsEdit contains all these sample scripts!

Download Now!