ࡱ> uTahoma4BA( 74OKButton, ?  !"#$%&'()*+,./0123456789:;<=>?@ABCDEFGHIKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ Fɀ\pJohn Walkenbach Ba= ThisWorkbook=xi ]t1<X@"1Arial1Arial1Arial1Arial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                + ) , *  `Sheet1T Fɀ U  dMbP?_*+%"??U>@7 Sheet1 <jCp#IOj< FuNuɝxME ThisWorkbook9Sheet1 ImodChartReport 7Module1-(SLSS<N0{00020820-0000-0000-C000-000000000046}0(%` % %`h8@<<xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2%  Z% #p94xhpx  " ( ) % +  #(M0H   P0`03   */@B(H(/XE/C&/5(H$/X$/(/D (/0DXx(/D*/D0*/@Dp"/"/> "/0UX Jx >@XP-X p "/ S/0 ,)9)pbxME @<<(<0<6 9 " " (08 "@HPXh x*"  $ @  8H("@h p x   "< (@&  xAoAo@]]]]gA lFu R%%.&l !%Z.<< Add menu item to Chart menu & 99ShowChartToolsForm9q1 Add right-click shortcut to objects in a chartx < < ChartFloor and Walls Format AxisFormat Data Series Plot AreaSeries Object/PlotD#'  R%. l !%Z. 9& 9ShowChartToolsForm9qP <o8(]h&  lFu R%%%B@ < < ChartFloor and Walls Format AxisFormat Data Series Plot AreaSeries Object/PlotD#'&   R%%B@ <oAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit` P"& Sub _Open() Call ieMenu EndBeforeCl`(Cancel As Bo olean *Dexlet*D7CDim ChartB(CommandBarPopuFp+A NewItem Button iLong, B Varian@E=Acb , Contr|olCCBL 7Set/= App`ac.2s(2@).Find(Type:=10D:=3@2P;:=%s.HAdd, Dporary:=1 '' mɀw iMto5With C1A6.Ca&" & APPNAMEHBeginGroupƻAB0OnAcBShowyT@sFormA A ,right-c )k shortcut objects in a, cF#O_rror ResuNex= i1 To 7!m`Array(""", "Flo@O WcsB`at AxiRD StePlo@!O/")(i -| 1d3<Q7FmCbT= cb@msoDKaB!B> !.9A>O`k?!6 i AnIz|As~s.("a).c)NNNNnNm) 6e4@ f,4Gok0 78x8 %`8 hx8`:dx8`<``>\`@Z `BH DD%`H<`J, `L(`N@$`P  ``@-)# %i* `,x /t % p@% %l`%`2h 4d %`8` \%@DL @H<  h`<@H OOI&  `L PPIv +x`@ e)z( %`|\ `~X @x +h`@ u)z %`|\ `~X @`H +8`@ )z %`|\ `~X @0 +`@x )z %`|\ `~xX @ +`@H UUI> hI I R(I  AddI !V`<h HH8 \.  08hhh %  8@PXx( x\^jtx8  : @ '  =w  Work@ @ ,l@ 8h ( 8@ !@ @ Obje` ( .,`  WoH be8 p .,@ 8@ e: ` ~ !z@x RP m'8` t t: m,lp .@` 8.@P : @@ !z@0 @ Char@ @ !z@ @ Char(  !z@ 1@ eet@ B@ Shee@| ,lXq&!hHx8 8@t ,lv&$p rFvf charl , mawcopy ah weries re note in a(d @@ P`O 2 h!2 x!.&E8(2k \`title:(hH@\^tH8 @4 $ ( @ @ @ p @ @ @ @  @ 6O 60;@ XWhO W ]O ] gi| 0o@xO po(t`u}p lO h 0dO H``XhH0xl @@\ L @<    "$&(.0246p<>@BXHJLNPR@XZ\^`b(hjlnpr88P`l `(\ @L    "$&(.0246p<>@BXHJLNPR@XZ\^`b(hjlnpr0@`H@XPl h, ( @$ @ @ @ @ @  @  088PPl `, ( @$ @ @ @ @ @ x @  00HPl X, ( @$ @ @ @ @ @ p @  ((x@Pl P, ( @$ @ @ @ @ @ h  @   h !!8!l H!p!!B ""H"0< @: "( @ @ @ @ @ @ @ @ " @ # #( @ 8#H#| ##@l @\ L ##H # $D # $#($B @$(P$< h$,$8 x$,$/$4 $3$0 $3%6%. (%?8%( P%Ep%$ `%E%H%  %L %LO( x 0  "  (08X`8H/XDyx  "/@ @ (/P )x 1   4J    z  8 &@ ,h  6  @ @  -( )@ `  /p /  "/ 0 ,^ 0 /8 X ` p $/x 0 $ /  (T <n ` hx$/0$/(T<n(h p"/0$/(T<n0px "/0$/(T<n8x  //    0  @ X'`x$?@"/?("/8` /h T&/"I (8 &/P $Ix &/ / &/( $IPx  $/ $I $/( $IPx  1   (/$I ( 0(/H$Ip   / / /0 8"/HAp &/A   !  0 H0X"p $#   !    "(%8P " X `  " ( ) %  +0 @ #P`Mh     /@B(/E8X/hC "/@B '0/Hh /p / / @ @ @ 0 @ >X Tx M   &/@B8X /h // /// /( /H @h @ @ @ @ @!@(!@H! h! x!>!/! /! !! '">"W8" PX""dx"<"<"<"<# # 0#@# H#  X# p## # 2# "# # <# #$ 0$8$@$P$EX$  x$ >$ $ $ $ '$2$&5% 0%<@%#`%x%%%%E% %W%% % && ( &@&(P& "h&x& B & &&.!& !&!'!'(!8'&!`',!'*!'0!'!( !8(,!X("!((!(*!(.!)!8)&!X)0!)*!)!)&!*:!(*0!h*D!*!*$!+&!(+$!P+"!x+(!+!+(!+&!,*!8,!h,!,$!,!, !,&!-"!0-!X- !x-$!-!-*!-$!."!8.(!`.&!.$!.*!."!/*!0/(!`/,!/*!/(!/.!0&!@0*!h0(!00!0!0&!1&!812!`1&!1 !1*!1,!2@2X2`2 B h2 p2x2!2.!2 !2!3!3(!83&!`3,!3*!30!3!4 !84,!X4"!4(!4*!4.!5!85&!X50!5*!5!5&!6:!(60!h6D!6!6$!7&!(7$!P7"!x7(!7!7(!7&!8*!88!h8!8$!8!8 !8&!9"!09!X9 !x9$!9!9*!9$!:"!8:(!`:&!:$!:*!:"!;*!0;(!`;,!;*!;(!;.!<&!@<*!h<(!<0!<!<&!=&!8=2!`=&!= !=*!=,!>@>X>`> B h> *p> X> D> *@?p?x?? Di?#?#?#@@ @ B (@ *0@ ``@ N@ *A@AHAPA Di`A#A#A#AAA B A *B T0B 2B *BBBC DiC#XC#hC#CCC B C *C \C D@D 2D *DDDE DiE#XE#hE#EEE B E $EEE EFF (F @FXF xF ;FF F $FG  G G(G 8G PGhG G (G:jG<XH @HPH XH $3pH H(NH8FH I $3(IPI  XIhIpI I .I (I:jI<X8J xJJ J $3J J(NJ8FK PK $3`KK  KK$K  KKL L (L@L `L (xL:jL<XL M(M 0M $3HM pM(NM8FM M $3N(N0N8N HNxp]]]] ]@Xp-p{]]]]]] 8]P R(T.c *! Add a new 1-sheet workbook R!V', R(V XB@Z \.. , R(Vd ^!`!Z..8k .B@b: A:A .%d(f<B:B .%d(f jB:B .%d(hB "B@b'8Chart Documentation 8 .,l 8 .%l!n(p 8 .%l!n(r 8 '8Report Generated: 8 .,l' t 8 .,l=w 8 '8Workbook 8 .,l "!v 8 .,l 8 '8Chart Location: 8 .,l $! 8 .,l 8 '8 Object Type: 8 .,l $$x WorksheetEmbedded chart 8 .,l 8 '8Chart Object Name: 8 .,l &!z! 8 .,lR 8 '8Chart Object Left: 8 .,l &!z! 8 .,lU 8 '8.Chart Object Top: 8 .,l &!z!| 8 .,l 8 '8Chart Object Width: 8 .,lerF &!z! 8 .,l 8 '8Chart Object Height: 8 .,lERF &!z!~ 8 .,l1dh Chart sheet 8 .,lB 8 '8 Sheet name: 8 .,lRMU &! 8 .,lk 8 '8 Chart type: 8 .,lU &$ 8 .,lrFC If chart is a surface chart, make a temp copy as a 3D Line chart8 Series formulas are not accessible in a surface chart'@ &!2  &!2  &!2  &!2 '@ &!z!!(.&E  &(2kx Chart Title 8 '8 Chart title: 8 .,lIDI &!EE. &!!d 8 .,ld(none) 8 .,lk Legend 8 '8ELegend 8 .,l &!GYes 8 .,lcGNo 8 .,ljV 8 '8E Chart groups 8 '8 Chart Groups 8 .,l 8 .%l!n(pTO 8 '8PNo. Chart Groups: 8 .,l &!!': : 8 .,l < :BIM 8 '8 Chart Group < type: 8 .,lType < &%!l -  < &%!l$ ( < &%!! series) 8 .,l < AxesoPrimary Category (X) AxisSecondary Category (X) AxisPrimary Value (Y) AxisSecondary Value (Y) Axis Series AxisD'J'P L X, Y, Series NPrimary or Secondary.D L N/ invalid combination 8 '8 P$J 8 .,lM 8 .%l!n(p L N &%P !GFj 8 '8 Axis Used: 8 .,lYes 8 .,l床 8 '8 Axis Title: 8 .,l L N &%! L N &%!!d 8 .,ld(none) 8 .,lk 8 '8.Minimum Scale: 8 .,l ? L N &%!': !N/A 8 .,lXEd L N &%! 8 .,l :G 8 .%l (Auto) 8 .,ljI.k 8 '8Maximum Scale: 8 .,l L N &%!':Q !N/A 8 .,lx\d L N &%! 8 .,l :G 8 .%l (Auto) 8 .,ljrk 8 '8x Major Unit: 8 .,lS L N &%!':L !N/A 8 .,l```d L N &%! 8 .,l :G 8 .%l (Auto) 8 .,ljk 8 '8p Minor Unit: 8 .,l L N &%!': !N/A 8 .,ld L N &%! 8 .,l :G 8 .%l (Auto) 8 .,ljkdno axis, or errorX 8 '8 Axis Used: 8 .,lNo 8 .,lk P 'Pk N L 8 '8 Do each series'> 4 &! 8 '8Series > 8 .,l 8 .%l!n(p 8 '8 Series Name: 8 .,l 4! 8 .,l 8 '8 Series Type: 8 .,l @Surface 8 .,ldp 4$ 8 .,lkH 8 '8SERIES Formula: 8 .,l' 4! 8 .,l 8 '8 4$'B$BRangeCategory Range: 8 .,l'$B 8 .,lkX $BEmptyCategory Range: 8 .,l(None) 8 .,lk $BArrayCategory Array: 8 .,l'$B 8 .,lk 8 '8 4$'B$BRange Values Range: 8 .,l'$B 8 .,lk $BArray Values Array: 8 .,l'$B 8 .,lk 4!2  4!2  8 '8 4$'B$BRangeBubble Size Range: 8 .,l'$B 8 .,lk$BArrayBubble Size Array: 8 .,l'$B 8 .,lk`kX 8 '8 Axis Used: 8 .,l 4! Primary 8 .,ld Secondary 8 .,lk 8 '8 Data Points: 8 .,l 4!! 8 .,l 8 '8Has Data Labels: 8 .,l 4! 8 .,l 8 '8 > '> 4 @G &!zB@j Thumbnail? !d .%(  r  &B@ .B@ .%.D D! D!~'H DP9~5~ H999|qk R(T .!zB@bA2 .%B@boh (simple chart report)]]](]H]h]]]]] R(T *! Add a new 1-sheet workbook R!V', R(V XB@Z \.. , R(Vd ^!`!Z..kx "B@b'8 Chart List 8 .,l 8 .%l!n(p 8 .%l!n(r 8 '8Report Generated: 8 .,l' t 8 .,l 8 '8Workbook 8 .,l "!v 8 .,l 8 '8 Chart Sheets 8 .,l 8 .%l!n(p 8 .%l!n(r 8 '8 "!!(none) 8 .,ld Sheet Name 8 .,lType 8 .,l No. Series 8 .,l 8 .%l!n(p 8 .%l!n(p 8 .%l!n(p 8 '8  "! ! 8 .,l $ 8 .,l !! 8 .,l 8 '8 k  8 '8Embedded Charts 8 .,l 8 .%l!n(p 8 .%l!n(r 8 '8 Worksheet 8 .,l Chart Name 8 .,lType 8 .,l No. Series 8 .,lLeft 8 .,lTop 8 .,lWidth 8 .,lHeight 8 .,l 8 .%l!n(p 8 .%l!n(p 8 .%l!n(p 8 .%l!n(p 8 .%l!n(p 8 .%l!n(p 8 .%l!n(p 8 .%l!n(p 8 '8 $ "!` $! 8 .,l $!!(none) 8 .,l 8 '8d  $! $! 8 .,l !(! 8 .,l !($ 8 .,l !(!! 8 .,l ! 8 .,l !| 8 .,l ! 8 .,l !~ 8 .,l 8 '8 k $ Thumbnail? ! 8 '8  "!d 8 .%(  r  B@ .B@ .!! .%.D D! D!~'H DP9~5~ H99 8 .%!| 9|q ! 8 .,l 8 '8  $ "!`  $!d 8 .%(  r  !(B@ .B@ .!! .%.D D! D!~'H DP9~5~ H99 8 .%!| 9|q8 !(! 8 .,l 8 '8  $k A:A .%(f .!zB@bA1$B@H R(To &!2 KTFLine' KTFStacked Line with Markers' KTF Stacked Line' KTFPie' KTF Pie of Pie' KTFStacked Pyramid Bar' KTF3D Pyramid Column' KTFClustered Pyramid Column' KTFStacked Pyramid Column' KTF100% Stacked Pyramid Column' KTFRadar' KTF Filled Radar' KTFRadar with Data Markers' KTFHigh-Low-Close' KTFOpen-High-Low-Close' KTFVolume-High-Low-Close' KTFVolume-Open-High-Low-Close' KTF 3D Surface' KTFSurface (Top View)' KTFSurface (Top View wireframe)' KTF3D Surface (wireframe)' KTFScatter' KTFScatter with Lines' KTF&Scatter with Lines and No Data Markers' KTFScatter with Smoothed Lines' KTF/Scatter with Smoothed Lines and No Data Markers' KTF3D Area' KTF3D Stacked Area' "KTF100% Stacked Area' $KTF3D Clustered Bar' &KTF3D Stacked Bar' (KTF3D 100% Stacked Bar' *KTF 3D Column' ,KTF3D Clustered Column' .KTF3D Stacked Column' 0KTF3D 100% Stacked Column' KTF3D Line' 2KTF3D Pie' 4KTFExploded 3D Pie' 6KTFArea' 8KTF Stacked Area' :KTF100% Stacked Area' <KTF Clustered Bar' >KTF Bar of Pie' @KTF Stacked Bar' BKTF100% Stacked Bar' KTFBubble' KTFBubble with 3D effects' DKTFClustered Column' FKTFStacked Column' HKTF100% Stacked Column' JKTFClustered Cone Bar' LKTFStacked Cone Bar' NKTF100% Stacked Cone Bar' PKTF3D Cone Column' RKTFClustered Cone Column' TKTFStacked Cone Column' VKTF100% Stacked Cone Column' XKTFClustered Cylinder Bar' ZKTFStacked Cylinder Bar' \KTF100% Stacked Cylinder Bar' ^KTF3D Cylinder Column' `KTFClustered Cone Column' bKTFStacked Cone Column' dKTF100% Stacked Cylinder Column' fKTFDoughnut' hKTFExploded Doughnut' jKTFLine with Markers' lKTF100% Stacked Line with Markers' nKTF100% Stacked Line' pKTF Exploded Pie' rKTFClustered Pyramid Bar' tKTF100% Stacked Pyramid Bar'SFMixed'n i h vKTFColumn' KTFLine' KTFStacked Line with Markers' KTF Stacked Line' KTFPie' KTF Pie of Pie' KTFStacked Pyramid Bar' KTF3D Pyramid Column' KTFClustered Pyramid Column' KTFStacked Pyramid Column' KTF100% Stacked Pyramid Column' KTFRadar' KTF Filled Radar' KTFRadar with Data Markers' KTFHigh-Low-Close' KTFOpen-High-Low-Close' KTFVolume-High-Low-Close' KTFVolume-Open-High-Low-Close' KTF 3D Surface' KTFSurface (Top View)' KTFSurface (Top View wireframe)' KTF3D Surface (wireframe)' KTFScatter' KTFScatter with Lines' KTF&Scatter with Lines and No Data Markers' KTFScatter with Smoothed Lines' KTF/Scatter with Smoothed Lines and No Data Markers' KTF3D Area' KTF3D Stacked Area' "KTF100% Stacked Area' $KTF3D Clustered Bar' &KTF3D Stacked Bar' (KTF3D 100% Stacked Bar' *KTF 3D Column' ,KTF3D Clustered Column' .KTF3D Stacked Column' 0KTF3D 100% Stacked Column' KTF3D Line' 2KTF3D Pie' 4KTFExploded 3D Pie' 6KTFArea' 8KTF Stacked Area' :KTF100% Stacked Area' <KTF Clustered Bar' >KTF Bar of Pie' @KTF Stacked Bar' BKTF100% Stacked Bar' KTFBubble' KTFBubble with 3D effects' DKTFClustered Column' FKTFStacked Column' HKTF100% Stacked Column' JKTFClustered Cone Bar' LKTFStacked Cone Bar' NKTF100% Stacked Cone Bar' PKTF3D Cone Column' RKTFClustered Cone Column' TKTFStacked Cone Column' VKTF100% Stacked Cone Column' XKTFClustered Cylinder Bar' ZKTFStacked Cylinder Bar' \KTF100% Stacked Cylinder Bar' ^KTF3D Cylinder Column' `KTFClustered Cone Column' bKTFStacked Cone Column' dKTF100% Stacked Cylinder Column' fKTFDoughnut' hKTFExploded Doughnut' jKTFLine with Markers' lKTF100% Stacked Line with Markers' nKTF100% Stacked Line' pKTF Exploded Pie' rKTFClustered Pyramid Bar' tKTF100% Stacked Pyramid Bar'SFUnknown'ni$ Returns a 2-element variant arrayR 1st Element: Data type of the 1st SERIES formula argument(Range, Empty, String)= 2nd Element: A range address, an empty string, or a string# Requres the SERIESFUNC function!]0]H]` z!=SERIES' ! '!SERIESFUNC R%'~ ~$'|$|+$|+ 'xi?$ Returns a 2-element variant arrayY 1st Element: Data type of the 2nd SERIES formula argument(Range, Array, Empty, String)H 2nd Element: A range address, an array, and empty string, or a string# Requres the SERIESFUNC function!]]]0 z!=SERIES' ! '!SERIESFUNC R%'~ ~$'|$|+$|+ 'i>h$ Returns a 2-element variant arrayM 1st Element: Data type of the 3rd SERIES formula argument (Range or Array), 2nd Element: A range address, or an array# Requres the SERIESFUNC function!]]] z!=SERIES' ! '!SERIESFUNC R%'~ ~$'|$|+$|+ 'iX<8$ Returns a 2-element variant arrayU 1st Element: Data type of the 5th SERIES formula argument (Range, Array, or Empty)= 2nd Element: A range address, an array, or an empty string+ This is relevant only for Bubble Charts.# Requres the SERIESFUNC function!]]] z!=SERIES' ! '!SERIESFUNC R%'~ ~$'|$|+$|+ 'iX: Returns a 2x5 variant array]]  Series Name9 >$KTEmpty++ >$xRangeKTRange+ >%+ >$xStringKTString+ >+n8 Categories8 $KTEmpty++ $xRangeKTRange+ < !!$ < %%+ < !!G$,+j <S7Array+${+ <  $ <$+ < G$,+j <$}+n6 Values6 $xRangeKTRange+ 'Result(2, 3) = vals.Address(, , , True) < !!$ < %%+ < !!G$,+j <Sp5Array+${+ <  $ <$+ < G$,+j <$}+np4 Plot orderInteger+ + Bubble size4 $KTEmpty++ $xRangeKTRange+ < !!$ < %%+ < !!G$,+j <S2Array+${+ <  $ <$+ < G$,+j <$}+n1 'i11׵Attribute VB_Name = "modChartReport" Option Exp licit@PrivavModule Sub Gener,(wkbook As Wor , sht Object, c5, New)$Boolean) Dim UserSheetsLongSummary;Is+"fTy4peSChtSer eries 6, xkinS@urface8Fxlagg4ResulVar8ianwPicturAspRaӁ0Doubxi.s,aH2axLo6G'AxNumAApn.ScreenUpdngFals)IfJtThen ''Add a n ew 1-i w {= J€InG  (1 śs.$Set ctive߂ 0C EGA8;%.GH(End IfCC9I-.A,@Columns("A :A").WiHdth$329B$:B.60?HorizontalAlignment` xlLefd^w# rd6Cells(r, 1) "e Do|cuA S,h. .F.BoldTruW HSiz!14rh + "cfd: 2'" & Now !EH .Full!? _, /b.=._ 5a< w (ˢ&f" @WAC-Embedded &Ph< QD:h K.Parb#t$1k79Q Topczw?@S((rtM%b4>!oHHeight//+s3LcL0P""c+5J T3no o d q. i3_]tD@Get?(PÅ@c isss "@, makePtemp copy aA3D Li 0COGo@m:N1O" Used:Mw= "Ye6sT )Cy)Tixtle*.tH..0)Aa9 3& .T ElsJ* "(no\neE`lIfSCZE$q@"MinimS|caw4)bIsAuto3dá:"N/AW?7̑"b} x#~XV&Fe9{F" : FaxFFO# O#@* f#OO#O#I?6O#).M O#+r" O# FO O#Fxt!O A E#jxUnit` #x0Q?FQ"" r""q?6" U"" od"ut"_!? ""q O Qi"cT"a"inor" ""vh"I?6"" U""ob G" " 'no QOs, e w/&/!D"No/ 0"B`ma(Sl#Do `each cn`ECht@ In a"s (7& nGOoBu#Sheet.Cells(r, 1) = "Series Name :" Summary 2dhChth.b^rr + 1 uTyp uIf SurfaceChartFlag pThenT"C>Else&?Get<L(t)End If-zERIES Fo rmula"'" & @EResultXVALUES_FROM_S"8 A` (kRang e"b Category B;qg<C/(2Xa,Empty,*ٝ(None)̊S)Arraw)B?VsKK @g :KPValu?KBi?K$"6!C ?6Xa'6@d@xlBubble OrE3DEffe&, 3T_~ 4ASecond?[=Data Point>s3.Count!pHas Labelߝ؝ @ nn7NextTFS2?en cht.Parent@.DeletT  'Thumb`nail?V &r1.cb$JPRows.pHeighA100Q#CopyPicture Appearanc e:=xl@'nteEScreen,at"cPasE S>e`DrawingObjG`XA 'Asp0RpatioP[.Width /.#wWig8cd= %* \Lef"lTo>H+?FsyG`licn.3Updng Tru!#Activpe("A2" ).gSub  ` Gen errList(wkbookP Wor, N ewBooleanpy*(simp vc report${DimQr:sLong  AsA۹'CS Gs,|As AQStr0%ܒ{rA 1(q)c'~"Q%Fa۠B1Bdd a new 1-R w;!B=Ss)/bet\)4W r,25$V----8 - .SummarySheet.DrawingObjects(.Count) AspvRatio = ChartPic.Width / Height~Wi'6m.;^80!n= ** 3PLeft)5T op Rows(r). + pEnd h)#Cell$, 1)Q1cht..PNamerr + 1 Next   sHIfK4ange("A:A")!xlumnR32 Parent.ActivatD*R1SelCApplicAn.ScreenHUpdng3T ru'Sub  APr Funon GetBEType(9 CaseA?CNxlLiXne:@"A" MarkersStackedO A wAD Pi-",9OfO* of "O yra@midBarPC `Colx3D eJCluster1.F C ?D 100O% RadaroO#aFillQ" YR #WData WStockHLCOH-Low-Closh"OROpen- VVoe?aVSD? xlSurfacpq[dO7@View' (A)}Wiref v @; tSQ  (welXYSp] ; O 6S~s)2?;No.b  ayNo o/bdx Smooth_ Ced`s  ohe rl3DArea  K Sp e1QQOCe_(`?hb`_ d X ? j _Rd_?faxq /{??3 3D?D 43D;3DP "p"ދ@Explodq " ( ))Q1`xl@׃&!!ϙ eQ0 @4Bubbl/n"ss3DEffd ebSl//D3u"c? os-Cone ered Cone Bar"  Case xl`Stacked: GetChartType0 = "`&10&0% #ICo2l?3DumnClustA "$U#aF$&ylinder#oG'8l :b@B%AEJJ _J+(JU'DoughnutJE%ExpXlodq}% LineMarke rso with D*! nlA c /PTie?# "nPyramid_t~ 3tg  Else4MixedEnd Se@lect aFunction Private eGroup!(cg)!c cgL$3gF[!4T7dN&b@_Ue JPie/aOfw ofO #y,XCXt %{V1?=O( ? A0vHJ {Rad\ar"1xlbFillIY 2b/a/DataZ;xlStockHLCrHigh-Low-Clos_,OOpen-O+2VOEVolumeoT VK"t? lSurfacT01ToppViewrD j(` q)Wirefpg/   O:w (wlXYScatn?](,No1JC aqNo 2R&DDVSmooth0ُ <, / rs3DArea _SXI"$OJW>WϗQM:hϗfO O /-/ % Z ?3Dprrwtered: GetChartGroupType = "3D Clus Column" Case xl3D2Stack@100% QPLineD5Pi" Explod ""AreaV ?[JZBa~rƉ"Ǒ O2O fP] of "NM@ Yd@SubblՌB3DEffe ctM withe sga * }6c d*sx ne@.ǔne 4CoB c &?!### R!$`?$&$? $ȸ$6 ylinderA"! CBG _B # CC #DE'E"lY0, TeDoughnuV3Po}Jf} qMarkers/C^tHp>t!OܠN? P|ie0|Pyramid?>7>4/>  7OcA%*Els~$U nknow2En d Sel} Functio n SERIESNAME_FROM_ (s Asries)Vari@ant 'pReturns a 2-ment v arrayc1st Ele: Data tqpthe  formu$lagu(Range, Empty,Yrin4g)C2@ FA r address, an eA st1, orP Requ  !FUNC f!)Dim ResultA !Syr(1 To 2= A@pplicaa.Substitu@te(s.F3,( "=c "'" & ThisWorkbook.Name0"'! "A = Evalua )((1, *1( =(2w3$r(  XVALUESy(Se((&( &(Q % (((!(ge(1)d)at*) ) ) 9)Q0) :)=)))S))ES )y* = Evaluate(Func) ReturnArray(1)ResuDlt@, 22 N2NXVALUES_FROM_SERIES@ End t`ion  <(s As S@eries) Variant 's a 2-element 2v a&1st E: Data type of the 3rd TformHulagu&(Rangr ;2`'A raddress, or an ?pRequ 64F`UNC f!Dim uu  String ToB= Applica.Su@bstitus.FC?, "=)"'" & ThisWorkbook.Name"'!3"F}13F4 A? BUBBLESIZE@k[5th\,ÛEmpty@E_ŠeA s9 is revh@ only ^ Bubble Charts.kW SWncWWWBWpW?A, 5Wy( OGWgo(OpYal n, f|Val ord er?SizeYx5Mi!;L&o (1b, 5 E#L AcSSct Case True! BIsMissy`(n-Aa#P(1 "f"h0B"A }0"bS x n.AC(, !1$\f ACgou1r %ZPT 3({?q C? l i'.Areas.CousWl & (i)&elQIf<>pten 5",lNext iwrEls1!d)C=0& "{5LBPd(`) 1 L"}End SelectQSERIESFUNC Function MEP<<<<< <<<XX% `@ ꐚ H8pXx @h X @H JWalk Chart Tools p8 )@( 8 b@  (  "  ($38` hx ]$JWalk Chart ToolsX -Activate a chart.  A@ogd B@koxpAttribute VB_Name = "Module1" Public Const APPNAME As S ngJWalk Chart Toolsj Sub Show.,Form() If A ctivelIs@ NothiPThen#'MsgBox ",aa ch.", vbInfSat0ion,;ElseEUser} 1.!nd I0f EU $  ; piQ$^MRShellExecuteAoī K$Lp1N .Xq_-rlKb+J,3Q$GB_׃JxMEUserForm1 VUserForm2J _VBA_PROJECT$dir`0h@  "  .(  X60x4060:0 40`8060:060H4080>0<0060p80808040P01 80 8 B0P  &X-<;GG 1 >0@>HX` "h%p-         G  G8PX` "hpx    < $,38@ $H X`h p Mx "  )8j  @ 8  @  "P ` (x      #    0  &(  @ (H @P + / @  + -  @8  x  - *C        "  (  8 "@  h "p    -  $      : :    T(  "H 8CancelButtonAD 3AboutButtonnKAbout JWalk Chart Tools S Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 3630 ClientLeft = 45 ClientTop = 330 ClientWidth = 5850 StartUpPosition = 1 'CenterOwnh /t EpT0LحEZ He +F+91I2;ݥn6BfM8e.xME$ SPSSS<6<<<(<.<<<(<,<0<4<8<<<@X  @ %l  38  `%8   8 X 8 ( ^\ ( %@ t0 @  %H X  t @ 6@ %\@ @p @` %(@P a@@ W@0 @ `i  kp 8  $%((~B    X t @ (0.CA5@(0 5 !B(0 , !D ,!(0 ,T AB5F(0 J'qo  A@ro`` LB@o@8.Attribute VB_Name = "UserForm1" " Bas0{5569087F-9E7A-467D-A260-6CE5780F13D1}{EEC8016B-ECD4-438A-800D-3143ED5B1B20} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD Option A3licit P%) Sub _Initialize() Dim s AHs S>es Me.Ca)= APPNAME  grtatCombo.List}Array("GIF", "J(PEGTPNDG"D 'Get previous settHingD cbB]e`Links S(#Ds Y * -1cbSS> ob@Act@l?!K A'll onSheF= '=O +ll*llQSIndexa ` 04obColorPicturm *@ *G`Rscale "Px"obnJpy Co Bitmap) Text^?Uo`` k`KU{q 0+& llChart ob Si@eReporLb)` O"Detailed '-kS New,,kFBookMaMJ cbThumbfn  " MultiPage1.Valu@?AiL`71EsfLoaderies n@`4fOsrro@r ResuN2mm EachqIn 3B(.Sr@Jle_onlb pBox.@AddIteu.w1 SeIf Err <> 0 ThenBxeX06GoTo DXBc5 obj dimens Type (C"()""18s(1).EnER1oi6'tbWidth.q>pbPnt. H eightt.#End Ifj path #Workfb30thLabelSavePpp0a.Defa`.F`CQoPZ ɠ_@ng (1<PO!etO!qU Xtb_Xw%h ApyoButton(Q ;(3 O "o %3 /,/ _U #$!u0(% %OK#_C-kchtObjB`F3yrhtm S9pngcLQorHandlerS C, 0 ' Data> "6$O1 Rn&gARa2, G]" , iL~o V e = (RefEdit1J$p7.Nveh`G Msgph "Invalid d1lH rA .qvՐ@,Eq|WiM% !plStЙp-ea9!Lengtwh = Len(.Text)  .SetFocusxEnd With2xit0 Sub 2^IfC &] SerActiveChartsriesColleon(ListBox) .Value Application.Scr@eenUpdng_False |r.HasDataLabelsTruFor Bi 1 ToU.Points.C0ount (If cbCreateLinks Txheng&(8i).C8"=" & RngNAddress(, , xlR`1C1, XE?w9 ; -qNext i bYCase 1 '!B Sizc'no aB - uses the y butto [L2 'Export as GraphicGDim SavePath As String1@mat@jCoxmbo "JPEG"  G"Work book.B(= 6"-=CEDefaultFil48`)ve   "Q.CapamT"\SeAw 9=,Bobac& Sheet.Name fAParen.wC C8,/kl8lon@ Each chtObj In pc.%!?y _!| sht fLsA68 ( #"'D!U(ρ F_'or~'_'P'&d 2B P; `>wR33 ' Pictur|\aVq aVQ?d| D&M XobCopy /z~0 earance:=xlPater,rjc, +@"s" yr?mqqBitmapO{ APTypeQ!(HT)?2SeQ Ust| GWindow.VisibleORPa.1c'Lef1x^a gTop]PK $ᐄysca vC}ShapeRapnge.D'"%lormso'ov84 ' s???B5 'Re.A$IndexA_PVll; ? e`=<orEM??8oGicture", obCopyP * -1  SaveSetting APPNAME, "Ds"rBit8map,TextSizeAc8tiv :OShxeet T ,sx llChadrt ob WSimpleReporT %Detailed& 'qNewQBxookBeAjcbThumbn<@HjMulti`Page1. ValueExit Sub ErrorHan dler:Ms@gBox " N$ " & @.vbCrLfDDescription, Aitical,ndC P@rivate ApplyButton_Click()C"Dim chtObj As ect 'ies the height/widthIf Not Is ericP(tbW.[)l AiHTXhen "I@nvalidd or .,Ra/a-ffcbSame! caA*.Scre`enUpd=` Falsd9a FA`Each %In c\.('s.# = I$$"&GN :TrRJ".Parent{E0"aRob SHs.Ca^`""Includ>e @Rey_ob) = u s" ?AmlEC8pshtApoAGSel q Case 8!BȢACll FZze(8 Z+ /0/0 ,0{(1_.P?]uo :f:Workbc.s}O  @= :Ca *`_ _ V 2 # t#:'/ ;<% fd$-S|era`d3aT LQTGdlinVOn1pVRes0ume #WitWTitle.AutoSpeFontB[.Axes(xl!z, xlrmary)is// .Second/O( tCygory Y_Mmual  T`Labelsue6 _? " Pooo_ //#DisplayUnitB?? 08 4 DataTab&&Legendo k +X ) [.)Colp.!&O@GHS TL [TLW PSKAreaAXO?dCancelφ Unload MU\u@k[`Aboutserm2.ShowSPSSS<8<<<<<< <$<(<,<0<4<0{765C95BD-F1E0-44CF-B445-BB393862E309}{8AF5EBCB-2723-412E-82EC-A9056945DCEA} x0(%X0 %+P`p iRleiTiViX 4iZ@4i\4 ``tD `T@ `x@`u4h%L%@@dP(x t (pf-Xl @\ (X  @T ] @(x `0p@h H  "  4.0hp "x/ "  x``` A@rJ1 bhttp://j-walk.com/ss b b dA@Pm oAbout  ( ! f(oP A@rTo0(Attribute VB_Name = "UserForm2" " Bas0{765C95BD-F1CompObjE:aVBFrame<%UserForm2H 9AB JEABfA3E0-44CF-B445-BB393862E309}{8AF5EBCB-2723-412E-82EC-A9056945DCEA} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD Option 4licit &P%) DM FuncShel lExecLib "s32.dll" Alias "A" (ByVal hwnd As L ong, lp`Opera- S3 Fi PartersM DirectorynShowC:m!)$BSub LabelWebSite_CCk() OHrror ResuNex@JAUnload MnH0&, @vbNullE)"http://j-walk.com/ss"M @alFocus#GoTo 0 | E@W@02o _InitializeE4Me. Ca~@About " & AP PNAMEInstallTH ThisWorkbook.PathV"OKButtonUOH00* pHd ChartTools4@j = r * > J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\Sc2.tlb#OLE Automation^DOffi cDO>fijcDD2DF8D04C-5BFA-101@B-BDE5DA*AB42DProgram Files\CommonMicro@soft Sed\o@10\mso.dll#M 10.0 Object Li`braryKMSFor sCollection;:HasAxis5ErroNumber- AxisErrorSAxesb AxisTitleMinimumScaleIsAutoA MinimumScaleMaximumScaleIsAuto  MaximumScale=MajorUnitIsAuto;[ MajorUnitMMinorUnitIsAutok MinorUnitBFormulaqYXVALUES_FROM_SERIESVALUES_FROM_SERIESTxlBubbleudxlBubble3DEffectBUBBLESIZE_FROM_SERIES  AxisGroupg xlPrimaryuPoints HasDataLabelsDeletex UserForm1) cbThumbnailwRowsU RowHeight CopyPicture Appearance"* xlPrinterxlScreen  xlPicturePasteDrawingObjectsߺRange GenerateChartList)CS\chtObjw ChartObjectƹCharts ChartObjectsHxlLineWPxlLineMarkersStacked xlLineStackedxlPie xlPieOfPie xlPyramidBarStacked xlPyramidColCxlPyramidColClusteredxlPyramidColStackedxlPyramidColStacked100UxlRadar& xlRadarFilledl.xlRadarMarkers xlStockHLCB xlStockOHLC xlStockVHLC6c xlStockVOHLC5 xlXYScatter)xlXYScatterLinesbSxlXYScatterLinesNoMarkersvxlXYScatterSmoothxlXYScatterSmoothNoMarkersxl3DAreaxl3DAreaStackeds.xl3DAreaStacked1004xl3DBarClusteredxl3DBarStacked%xl3DBarStacked100' xl3DColumnxl3DColumnClustered xl3DColumnStacked+xl3DColumnStacked100xl3DPie"xl3DPieExploded;xlArea xlAreaStackedxlAreaStacked100xlBarClusteredQ xlBarOfPie xlBarStackedd@xlBarStacked100ixlColumnClusteredrxlColumnStackedmpxlColumnStacked100_xlConeBarClusteredxlConeBarStackedxlConeBarStacked100X xlConeCol 3xlConeColClusteredbixlConeColStacked xlConeColStacked100CxlCylinderBarClustered`lxlCylinderBarStacked/xlCylinderBarStacked100M xlCylinderColxlCylinderColClusteredxlCylinderColStackedOxlCylinderColStacked100]) xlDoughnutooxlDoughnutExplodedԮ xlLineMarkersaxlLineMarkersStacked100ՌxlLineStacked1006 xlPieExploded-xlPyramidBarClusteredxlPyramidBarStacked100jcg\SERIESNAME_FROM_SERIESsj ResultArraycKFuncZ0 ReturnArray Substitute^EvaluateT SERIESFUNCcatJ}Vals orderABubSizek7Resultur IsMissingAddressAreasKmodChartReport1*SAPPNAMEKpShowChartToolsForm& ActiveChart MsgBoxR vbInformationnShowUserForm_Initialize5cCaptionxExportFormatComboQList* cbCreateLinks$~ GetSetting cbSameSizewobExportActive~obExportAllonSheet obExportAll ListIndexQobColorPictureƐobGrayscalePicture2 obCopyPicture obCopyBitmapobTextSizeActive)obTextSizeActiveSheettobTextSizeAllChartsobSimpleReportbobDetailedReporttobReportNewSheet\obReportNewBook MultiPage14?ValueKListBoxSeriesListb5AddItem  SelectionZPagesEnabled۪tbWidthvtbHeightbPath2 LabelSavePath4Nas  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\Stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\Program Files\Common Files\Microsoft Shared\office10\mso.dll#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{D5CE9082-473F-49FD-ADF3-B720D7305AFC}#2.0#0#C:\DOCUME~1\John\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  * > pThisWorkbook0`3ea50b2aThisWorkbook Sheet10b3ea50b2a Sheet1modChartReport0c3ea50b2amodChartReportb0Module10d3ea50b2aModule194H)UserForm10e3ea50b2aUserForm1`EUserForm20f3ea50b2aMUserForm2iQxA 0x`HGF: ⏶F)D!5>u C8܋l`5qSAc;>21Mvٗ@TI C*hij^Excel+VBAWin16~Win32MacVBA6#Project1 stdole` VBAProjectOfficeu ThisWorkbook| _EvaluateSheet1WorkbookkModule1bmodChartReport-GenerateChartReportDwkbookshtchtM~Chart? NewWorkbook UserSheets%5 SummarySheet Worksheet ChartType?ChtSerٍSeries]rixoi`neSurfaceChartFlagL SeriesResult:ChartPicSPicture* AspectRatio*d AxisNames7ax\axLocTAxNum  Application*ScreenUpdating! SheetsInNewWorkbook WorkbooksBAddr ActiveSheet%NActiveWorkbook WorksheetsActivate|Columnsp9 ColumnWidthHorizontalAlignmentS@xlLeft9CellsFontUBoldSizeNow%FullNameОTypeNameParentTop5Height| GetChartType xlSurfacexlSurfaceTopViewuxlSurfaceTopViewWireframe 'xlSurfaceWireframe8 Duplicate_xl3DLine>HasTitle{ ChartTitle_ HasLegendB ChartGroupstVCount0vGetChartGroupTypeSerieDefaultFilePathRMultiPage1_ChangeJApplySizeButtonÔOKButton_Clickf ExportFormatkV ErrorHandlerO RngLabelsdSerlRefEdit1 vbCritical+}SelStartZ SelLengthSetFocus DataLabelxlR1C1pSavePath-ExportTheChartxlBitmap ActiveWindow+Visible ShapeRange PictureFormat ColorTypeفmsoPictureGrayscale SaveSettingvbCrLf Description ApplySizeButton_Click IsNumeric$*obDetailedReport_Click obSimpleReport_ClickGTextSizeApplyButton_ClickFreezeTextSizexTLE_ Trendline AutoScaleFontxlValueSFrms$3D452EE1-E0D8F`A-8-02608C4D0BB4RFM2`0.DLL& ^L&/;!1iIpAHp00}v#7@p# 504 AD5CE9082-473F-49FD-ADF3-B720D7305AFC6DOCUME~1\John\LOCALS@Temp\VBE\S.exd ; .E .`M pThisWorkbookGThsWlkbok 2 HB1Z@B,!T"B+BBqS@heet1G SŠe_t1 u 2   !Tmod"ReportG! mdCarR`p`maZ2b!"!("jodule"ujo u"#27n o)@)m#94 c `Userk@xe"er TypeInfoVer = 141 End 4RAR iQ(H  @}s#R KQDBTahoma 82TInstallDi0-@@Directory path goes here#u Courier NewnH-.2002 JWalk & Associates. All rights reserved.sRsuTahoma4$- Version 1.0nX @Tahoma40,Visit The Spreadsheet Page:roGICCompObjJ^aVBFrame`$PROJECTwmMeUserForm1LF AB 9ABfwo D$i03pFz?a ABABz~y u *  !"#$%&'() +,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstvwx{|}fPo8i050i*WJO AB ABi06+i*WJO AB ABi07(i*WJO AB ABi08$i*WJO AB ABi09i*WJO ABABi58i*WJOABABCompObjsx`fo 7Root Entry FP0PJ@`WorkbookP_VBA_PROJECT_CUR"N 0@BZABVBA0@B ABz3a2/E9ϣ3 2G} 2C4RAR iQ(H  G@}O(R KQDBTahoma8KEFҋB `EF( #9MultiPage1  : pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qi633 n``ABABCompObjnfo!i429 n`` ABABi53 "6 n``ABABCompObjnfXo#%i36&< n`` AB ABCompObjnf8o')CompObjnfo*-di44B n`` AB ABi46,.? n`` AB ABCompObjnfo/1pCompObjnfo24(1X0%S Data Labels Chart SizesExportSiPicturei Text Sizees Chart ReportTab3Tab5Tab6Tab7Tab8Tab4Aab45Tahoma$H G}%S8$#Page1a5,$!Page5a5,$!Page2a5,$!Page3a5,$ !Page4a5,$:!Page6a5, P i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(AApplyauTahoma(This utility disables the font Auto Scale setting for all text items in the chart(s). After making this change, resizingCompObjpfo57CompObjp the chart will not affect the font size of the text items.g"5Tahoma$H B }%0;<TextSizeApplyButton`!X (=2Label7e =$?#Frame6e3 [ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qfo8:CompObjpf d(RCreates an un-linked picture of the active chart, positioned on top of the chart.O"55Tahoma$H 8}%$*#Frame2ea$5#Frame5eK(82Label6ea i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qo;=(CompObjpf o>@ ((path goes here)|#h5 Courier Newh4(!Exported charts will be saved in:)5TahomaAX(r,5Tahoma$( fExport formatre)q5TahomaX(ENOTE: Not all export format filters may be installed on your system.5Tahoma$H G!}%$$#Frame1a0 12DLabelSavePathonF (22TLabel5> 0D8ExportFormatCombo `<(E2DLabel8<(G2xLabel9I [ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(WWidth:5Tahoma(HHeight:5Tahoma:H,a5Tahoma:H,a5Tahoma:\F-M0Make all charts on the active sheet this sizers5Tahoma(AApplyauTahoma$H  }%(2<Label3a(2<Label4aX$4tbWidthX$4tbHeight"( |cbSameSizenka_,<ApplySizeButton i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qDFI0Include chart thumbnaile5Tahoma$H 9}%$CompObjpfoACCompObjp,#Frame3$a$.#Frame4$a( 9dcbThumbnail.T  [ i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q0(AApply labels to this series:5TahomaLFC0Create links to the label cells5TahomaH$X5Tahoma((rData label range:< 5Tahoma`K 5Tahoma$H  }%( 2PLabel1a, lcbCreateLinkslsh $8RefEdit1(2HLabel2t10 4ListBoxSeriesList<a n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8F AT1Active chart5TahomaHFsT0All charts on active sheet5TahomaHFwT0All charts in the workbook5TahomaDH  B }Freeze text size of:R KQDBTahoma,@XobTextSizeActive 4AhobTextSizeActiveSheet*<#0BhobTextSizeAllChartse= n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8F g 40Grayscalee:15Tahoma4Fc 41Color4$5Tahoma<H  ) } Appearance:1R KQDBTahomah0)XobGrayscalePictureO,(TobColorPicturen n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q4Fb 40Bitmap$5Tahoma4Fp 4    !"#%&'()*+,-./012345689;=>?@BWDEFGHIJKLMNOPQRSTUVXYZ[\]_abcdfgijklmnopqrsvwxyz|}~1Picture5Tahoma8H  7} Format:R KQDBTahoma`( 6TobCopyBitmapO, 7TobCopyPicturen n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8F AT1Active chart5TahomaHFsT0All charts on active sheet5TahomaHFwT0All charts in the workbook5TahomaHH  '}Save as graphic file:*<R KQDBTahoma,%XobExportActive 0&hobExportAllonSheetle#( 'hobExportAlli= S n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qPF$D~40Detailed report for the active chart5TahomaXF,S41Simple report for all charts in the workbook5Tahoma<H   }.!Report type:R KQDBTahomad,pobDetailedReportO,xobSimpleReportrt n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8F N 40New workbook5Tahoma<F I 41New worksheeton:5Tahoma@H  0 }N=Report location:R KQDBTahomad,/XobReportNewBook:O,0\obReportNewSheet(OK"*uTahoma4(Cancel4*uTahoma4aR KQltBM6(uTahoma4$, Installed in:; XuTahoma40mchttp://j-walk.com/ssrR KQltF 0( @ ???????? w @Courier Newn(OK"*uTahoma4(This add-in may be freely distributed, but it may not be sold or included as part of any product without the written permission of JWalk & Associates.WuTahoma4,-JWalk Chart Toolsss2 @Ariala4,-JWalk Chart Toolsss2 @Ariala4rectoryLabel# (2hLabel54(2LLabel20x(2PLabel12 (2DLabel15 , 2LabelWebSite$ 4OKButton$T( 2Label21n(2TLabel23n(2T Label24nE S Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm2 Caption = "UserForm2" ClientHeight = 3705 ClientLeft = 45 ClientTop = 330 ClientWidth = 5145 StartUpPosition = 1 'CenterOwner TypeInfoVer = 24 End ThisWorkbookThisWorkbookSheet1Sheet1modChartReportmodChartReportModule1Module1UserForm1UserForm1UserForm2UserForm2PROJECTKhPROJECTlktSummaryInformation(OuPDocumentSummaryInformation8{ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=modChartReport Module=Module1 BaseClass=UserForm1 BaseClass=UserForm2 HelpFile="" Name="ChartTools" HelpContextID="0" VersionCompatible32="393222000" CMG="B3B11F8DEB91EB91EF95EF95" DPB="83812FFDE21AE21A1DE6E31AD5759104E3DFD74D4E6C7F05F6D2E9EA62636A47EF2265FE40" GC="5351FF2DCE2ECE2ECE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=154, 154, 1215, 608, Z Sheet1=0, 0, 0, 0, C modChartReport=0, 0, 0, 0, C Module1=176, 176, 1237, 630, UserForm1=0, 0, 0, 0, C, 132, 132, 1193, 586, UserForm2=0, 0, 0, 0, C, 154, 154, 1215, 608, EFOh+'0  PXx  JWalk Charting ToolsJWalk && Associates4Excel Charting Utilities 2002 JWalk && AssociatesJohn WalkenbachMicrosoft Excel@c}B@@B՜.+,0 PXd lt| 1 Sheet1  Worksheets FMicrosoft Excel WorksheetBiCompObjfff8Excel.Sheet.89q