graphs gone wild

Laughingman

New Member
Joined
May 17, 2011
Messages
5
Not as much fun as it sounds, but now your here please read on. I need some help as my VB is more basic than most. I have a page of graphs (52 of them to be honest) I was having to update them on a monthly basis which was becomming painful as you can no doubt imagine. So I wrote a little macro to create a new lot of graphs and another to clear out the previous graphs at the touch of a button - great! and it works too! - then I added a little bit more to get the line graphs and bar graphs to conform to the traffic light format the graphs display - simple red, amber, green lines / bars. I used a custom template and it seemed fine till I made it live and let others use it - now it seems to have switched axies and is duplicating the first 2 graphs and I have no idea why. Oh yes I almost forgot the first 2 graphs are always correct and formatted the way I wanted, all others that follow have the axies switched and as mentioned the first 2 are duplicated but the axies are switched.

See code below

Any ideas please

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_component_requirements_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_component_requirements_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_review_gate_meetings_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_review_gate_meetings_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_attribute_trades_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_attribute_trades_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_attributes_on_target_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_attributes_on_target_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Does_the_IPT_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Does_the_IPT_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_there_an_overall_cht")
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_there_an_overall_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_Intellectual_Property_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_Intellectual_Property_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Have_checks_for_infringement_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Have_checks_for_infringement_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Does_the_definition_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Does_the_definition_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_the_level_of_definition_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_the_level_of_definition_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_interfaces_suitably_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_interfaces_suitably_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_the_component_aligned_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_the_component_aligned_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_the_supply_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_the_supply_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_manufacturing_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_manufacturing_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_technology_readiness_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_technology_readiness_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_aftermarket_requirements_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_aftermarket_requirements_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_maintenance_policy_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_maintenance_policy_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_life__reliability_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_life__reliability_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_maintainability_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Are_maintainability_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_aftermarket_IPR_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_aftermarket_IPR_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_Aftermarket_strategy_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_Aftermarket_strategy_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_repair_technology_readiness_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_repair_technology_readiness_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_risk_management_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_risk_management_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Have_relevant_lessons_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Have_relevant_lessons_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Have_new_lessons_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Have_new_lessons_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_unit_cost_cht")

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"c:\excel\templates\metrics excel graph templates\bar default.crtx" _
)
ActiveChart.SetSourceData Source:=Sheets("data sheet").Range("Is_unit_cost_cht")

Dim iChart As Long
Dim nCharts As Long
Dim dTop As Double
Dim dLeft As Double
Dim dHeight As Double
Dim dWidth As Double
Dim nColumns As Long
dTop = 75 ' top of first row of charts
dLeft = 100 ' left of first column of charts
dHeight = 225 ' height of all charts
dWidth = 375 ' width of all charts
nColumns = 2 ' number of columns of charts
nCharts = ActiveSheet.ChartObjects.Count
For iChart = 1 To nCharts
With ActiveSheet.ChartObjects(iChart)
.Height = dHeight
.Width = dWidth
.Top = dTop + Int((iChart - 1) / nColumns) * dHeight
.Left = dLeft + ((iChart - 1) Mod nColumns) * dWidth
End With
Next

End Sub

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape id=Chart_x0020_2 style="VISIBILITY: visible; WIDTH: 376.5pt; HEIGHT: 225.75pt" o:gfxdata="UEsDBBQABgAIAAAAIQAUr971LwEAAOACAAATAAAAW0NvbnRlbnRfVHlwZXNdLnhtbKRSy27CMBC8V+o/WL5W2MChqqoEDg09tlVFP8CyNw81fshrAvx9N4EcQCogcbFlrWZmZ8bZcmdb1kHExrucz8SUM3Dam8ZVOf9Zv09eOMOknFGtd5DzPSBfLh4fsvU+ADJCO8x5nVJ4lRJ1DVah8AEcTUofrUr0jJUMSv+qCuR8On2W2rsELk1Sz8EX2SctEBsD7EvF9KEs6UgTUcLcF14LouLs7YDpZXOuQmgbrRItLTtnhMWJL8tGgygirgbUU4+S/3PrmrRQDtfsBolTT0c54/XGkhNhotpSZLYVA+EoXkCpNm1iqx35PUQcocUrbs6kjtEJQg6OsW4CXlC4HNeVWBI1CHI4x1buT+eEbtx8pD8v3fiti9DdUMlJ6wXBvqEb2eXwPxd/AAAA//8DAFBLAwQUAAYACAAAACEAOP0h/9YAAACUAQAACwAAAF9yZWxzLy5yZWxzpJDBasMwDIbvg72D0X1xmsMYo04vo9Br6R7A2IpjGltGMtn69jODwTJ621G/0PeJf3/4TItakSVSNrDrelCYHfmYg4H3y/HpBZRUm71dKKOBGwocxseH/RkXW9uRzLGIapQsBuZay6vW4mZMVjoqmNtmIk62tpGDLtZdbUA99P2z5t8MGDdMdfIG+OQHUJdbaeY/7BQdk9BUO0dJ0zRFd4+qPX3kM66NYjlgNeBZvkPGtWvPgb7v3f3TG9iWOboj24Rv5LZ+HKhlP3q96XL8AgAA//8DAFBLAwQUAAYACAAAACEAmm2hWxABAAA3AgAADgAAAGRycy9lMm9Eb2MueG1snJHBTsMwEETvSPyDtXfqNGoLjer0EiFx4gIfYOx1YymxrbXbwN+ztBEqJ6Tednekp9mZ3f5zHMQJKfsYFCwXFQgMJlofDgre354fnkDkooPVQwyo4Asz7Nv7u92UGqxjHweLJBgScjMlBX0pqZEymx5HnRcxYWDRRRp14ZUO0pKemD4Osq6qjZwi2UTRYM587S4itGe+c2jKq3MZixjYXb3c1iCKgk213YAgBav1I18+WFvXK5DtTjcH0qn3Zvakb7A0ah/YwS+q00WLI/kbUKbXVJhlmvM0mzI3k2YAf/5/0NE5b7CL5jhiKJe0CQdduOrc+5Q5wcZbBfRilz/ZyT8fX+88X/fdfgMAAP//AwBQSwMEFAAGAAgAAAAhAIdsmYBHAQAAWQIAACAAAABkcnMvY2hhcnRzL19yZWxzL2NoYXJ0MS54bWwucmVsc6xSTU/DMAy9I/EfqkggONB01UBjrNuBAtphGh/brRcvdT8gTaIkG9u/x2UqYtIkLlzs2JafX549mmwbGWzQulqrhPXCiAWohM5rVSZsuXi8GrDAeVA5SK0wYTt0bDI+PRm9ogRPTa6qjQsIRbmEVd6bIedOVNiAC7VBRZVC2wY8hbbkBsQHlMjjKLrh9jcGGx9gBtM8YXaaxyxY7AxN/htbF0UtMNVi3aDyR0ZwLXG+ekfhCRRsiT5hRS2RKPP7YbZ0pEO2vu5Hg9t+1uG4LH09i6MSPDryFyDl5T6VgocVOKRsjhuU2rRzs8XbOTTmLqX0Tye9Ye01uaeXZ7Iz9LYWLR5JS1ZUYH0bftYmDrfSdQRnOqe/P2w9WgWS8eMi9f5TJE/LwzndhK1z7HgkLAz5d2Vvu3ovpAW3tPjBQYy/AAAA//8DAFBLAwQUAAYACAAAACEAqxbNRrkAAAAiAQAAGQAAAGRycy9fcmVscy9lMm9Eb2MueG1sLnJlbHOEj80KwjAQhO+C7xD2btN6EJEmvYjQq9QHWNLtD7ZJyEaxb2/Qi4LgcXaYb3bK6jFP4k6BR2cVFFkOgqxx7Wh7BZfmtNmD4Ii2xclZUrAQQ6XXq/JME8YU4mH0LBLFsoIhRn+Qks1AM3LmPNnkdC7MGJMMvfRortiT3Ob5ToZPBugvpqhbBaFuCxDN4lPzf7brutHQ0ZnbTDb+qJBmwBATEENPUcFL8vtaZOlTkLqUX8v0EwAA//8DAFBLAwQUAAYACAAAACEAV1xbm9sAAAAFAQAADwAAAGRycy9kb3ducmV2LnhtbEyPwU7DMBBE70j8g7VI3KhTaACFOFUF4gQHKCD16NpLHGKvQ+y24e9ZuMBlpNGsZt7Wyyl4sccxdZEUzGcFCCQTbUetgteX+7NrEClrstpHQgVfmGDZHB/VurLxQM+4X+dWcAmlSitwOQ+VlMk4DDrN4oDE2Xscg85sx1baUR+4PHh5XhSXMuiOeMHpAW8dmn69CwreNmnTfz444z8W5jGupqJ7uuuVOj2ZVjcgMk757xh+8BkdGmbaxh3ZJLwCfiT/KmdX5QXbrYJFOS9BNrX8T998AwAA//8DAFBLAwQUAAYACAAAACEAw2dMpgoGAADMJAAAFQAAAGRycy9jaGFydHMvY2hhcnQxLnhtbOxaS2/bRhC+F+h/UIkEOZkiJZJ6IFJgK7UTIG7SPHooelmRK5k1ySWWlCP/+86+uBKtkWzXgINAOkir4XBm95ud/fb1+s06zzo3lFcpKyaO73pOhxYxS9JiOXG+fT0/GTqdqiZFQjJW0IlzSyvnzfTXX17H4/iK8PpLSWLaASNFNY4nzlVdl+Nut4qvaE4ql5W0gGcLxnNSw1++7CacfAfjedbteV7UlUYcbYA8wkBO0sK8z+/zPlss0pi+ZfEqp0WtasFpRmpAoLpKy8qZQuMyUiw7NySbOLQ4uThzukIYZ/ySlB9veGe+9CdOVvtOp15DKbmG0nzZE7KekEEpuYYSiWNwAhq6YCTwXEkanb6R9I1OYCSBkYRGEhpJZCSR07nK0uIaEBA/TmfBsndKYEq6DSJqojFlxupTTolq7S1b1bKNc8JnRgXKb1OuYIhZpgwsOVuVEEElLikXLfxSk/iaJkqjolwYTZO10vGUmPGEamNaUq+FXlXzz3QhSovpq4s/P3USUpNOdUVp/eq3F2cv/CB43RUPle6MQOcS5bKesVVRKx++8lHWHXA7cTwZxJvphXjzZiq+S2g1/IA3bUH9ka6hqOtSfoK6k3HFsjQ5T7NM/uHL+SwzVffOvFDWv7ulJqzJl6GbEAlwscr3tGsG7eqPX3wTP03z4JWmeSppZiyh0zzP/zm5hY9UlMkk5XdAGO1GIfD8wUi8a5EQeCiofA1V4PV8D1PqWaX+EFPqW6UIdRdYpRGqFDZK/T5ap8gqRajSwCqNfKziw0Yp6PUwpZFVClEl33S8wAuGMq47IbeYhz6uZUEPVQrstGVRDwchVnnfwh55uEeLe9SXSbfTowU+inAti3w0wutloR/0WlrQX20+qD8mWXWGwfgsBoLDiRaoRLPjiDUMA4tNKO+lAHBDcN8M89w92OuOg3Y/E2dUwYTYc/utD/qKibfnRq0PGn0TfNSmiTuqYEK+Dw0TcM8d9freIGq+8UQwmee5w1bzB2h/N3kIVfGD3jBsvtHm+yYpwQ1q1oQKdFofPBFs9NDxrklPFFrfRAc87+lqB0PkmxjhnkyEWhp70lHmITzXxN/mf83NG/yvJfflfzkwLB7D/6fbkRR1/J/8f34+87wj/+8iBtPRYSZx5P8j/zfzpefn/1Dxvx1Hnpz/t8eZu7NrdILaMApmwWQVasFQ/bA1O+iNfj9BJ6oNnWBuDZOgbg2RoAqGR1CFhtexOjSzadSEJW3UxkGA/YMIN/SM16PB0/Xb89iNznAQ1IaecU8IrI+n596d5bmW3JeeI4H9o+j583bUnoSegZ2P9Hyk5917HWZZcFyem+E78J6fniNFz3Yc+RnpGR3RG+rYHgwtbRxkDRNL1AXCGdbFT0nFGJ7+QUCfg4b7d2hYS+5Lw3Iz5FE0/Ef3adbJ4tSHNjvlcEYCSwAyzlb5JUvUNn0UbrCzUYd9+eNWujiesPlopqTHpfTN9MjVZnz/Ebh6oLjaDjZPztXungWU3lNAie7gYs8k1gP2xc362ttTsSfk8D1eDI0PXLttLrfQB3tW+g21u37rJEDOt3atFOy6293cOhdllFPt7jm65+A30XH91gc1a+PV2o62Y+VDVueonx9iSsDgIkZGSn2irZax8Zis32v2DILQj4ZRoGYK2/LhYCjlsIbePMKHs3R6Ko/Zt9WtmSomcE9gKdiH8RTO8uVNCFWHPC0uyVq4E0tzq0jWn1ilVOaqMjAKnOc13DoQNz3E4fTEaU6t4QYJW8E1gQ9wMYEm4nBe3jSo0/j6wzxrLBV0XX9l6lnMWVWd6vsDotmmeXC6Lh5R7Z2savY35fot8U+Dp8xk8+zjYlFRc0lA7wzEYwsLnF3swsf622j2Y/DRtyZy8i/jFzxNAGtayfbvgMx72cbKnJQ8BCsb2z1YyUdntP5OaaEjqf4I5CDaGhcobV0UoUtaJKKvZLLUBI9rwIm+SALvKQ05q4GrJn+l1cciu90KT5JW5RnctLmuTnU8l6TU/uXFIPEy9ArKC5K9FbdCONwqmTj8fSK3qMCJvYQ0/Q8AAP//AwBQSwMEFAAGAAgAAAAhAMUvdNJbBgAAAxsAABwAAABkcnMvdGhlbWUvdGhlbWVPdmVycmlkZTEueG1s7FlPjxs1FL8j8R2subdJdpN0s2q22mSTLrTbrjZpUY/OxJlx4xmPbGe3uaH2iISEKIgLEjcOCKjUSlzKp1kogiL1K/Bsz0zGmwm7265AlOaQzNg/v//v+dm5eu1BxNAhEZLyuO3VLlc9RGKfj2kctL07w/6lDQ9JheMxZjwmbW9OpHdt6/33ruJNFZKI3Ia1go4JAjqx3MRtL1Qq2axUpA/TWF7mCYlhbsJFhBW8iqAyFvgI6EesslatNisRprG3BQR9JgZ6FUExjoDX7cmE+sRMjac1jZBz2WUCHWLW9oDEmB8NyQPlIYalgom2VzUfr7J1tYI300VMrVhbWNc3n3RdumA8XTM8RTDKmdb69daVnZy+ATC1jOv1et1eLadnANj3SZzKUqRZ72/UOhnNAsg+LtPuVhvVuosv0F9fkrnV6XQarVQWS9SA7GN9Cb9Rbda31xy8AVl8Ywlf72x3u00Hb0AW31zC96+0mnUXb0Aho/F0Ca0d2u+n1HPIhLPdUvgGwDeqKXyBgmjIo0uzmPBYrYq1CN/nog8ADWRY0RipeUIm2IeY7OJoJCjWDPAmwYUZO+TLpSHNC0lf0ES1vQ8THHsFyKvn3796/hS9ev7k+OGz44c/HT96dPzwR0vLWbiL46C48OW3n/359cfoj6ffvHz8RTleFvG//vDJLz9/Xg6EDFpo+OLLJ789e/Liq09//+5xCXxb4FERPqQRkegWOUIHPALdjGFcyclInG/FMMTUWYFDoF1CuqdCB3hrjlkZrkNc490VUDzKgNdn9x1ZB6GYKVrC+UYYOcA9zlmHi1ID3NC8ChYezuKgnLmYFXEHGB+W8e7i2HFtb5ZA1cyC0rF9NySOmPsMxwoHJCYK6Tk+JaREu3uUOnbdo77gkk8UukdRB9NSkwzpyAmkxaJdGoFf5mU6g6sd2+zdRR3OyrTeIYcuEhICsxLhh4Q5ZryOZwpHZSSHOGJFg9/EKiwTcjAXfhHXkwo8HRDGUW9MpCxbc1uAvgWn38BQr0rdvsfmkYsUik7LaN7EnBeRO3zaDXGUlGEHNA6L2A/kFEIUo32uyuB73M0Q/Q5+wPFKd9+lxHH36YXgDg0ckRYBomdmQvsSCrVTfyMa/10xZhSqsY2Bd8W47W3D1lSWErsnSvAq3H+w8O7gWbxPINaXN553dfdd3fXe+rq7KpfPWm0XBRZqr24ebF9suuRoZZM8oYwN1JyRm9L0yRI2i3EfBvU6c/Yj+aEpCeExLe4OLhDYrEGCq4+oCgchTqDHrnmaSCBT0oFECZdwtjPDpbQ1Hvp0ZU+GDX1msPVAYrXHx3Z4XQ9nR4OcjNlyAmk5WkbrmsBZma1fSYmC2q/DrKaFOjO3mhHNlDqHW64y+HBZNRjMrQldCILeBazchNO3Zg1nE8zIWNvdbsCZW4xNLtJFMsRwU2BO7w2t97KPasZJWayYywCInRIf6XPeKVYrcGtpsm/A7SxOKrKrr2CXee9NvJRF8MJLOm9PpCOLi8nJYnTU9lqNtYaHfJy0vQkca+ExSsDrUjd+mAVw/eMrYcP+1GTWoVFUOFPMTYIa3FRYuy8p7NSBREi1g2VoQ8NMpSHAYs3Jyr/WALNelAI20l9DivUNCIZ/TQqwo+taMpkQXxWdXRjRtrOvaSnlM0XEIBwfoRGbiQMM7tehCvqMqYTbCVMR9AtcpWlrmym3OKdJV7zAMjg7jlkS4rTc6hTNMtnCTR7nMpi3gnigW6nsRrnzq2JS/oJUKYbx/0wVvZ/AdcH6WHvAh3tZgZHO17bHhQo5VKEkpH5fQONgagdEC1zHwjQEFVwZm19BDvWvzTlLw6Q1nPrUAQ2QoLAfqVAQsg9lyUTfKcRq6d5lSbKUkImogrgysWKPyCFhQ10Dm3pv91AIoW6qSVoGDO5k/LnvaQaNAt3kFPPNqSH53mtz4J/ufGwyg1JuHTYNTWb/XMSSXdWuN8uzvbeoiJ5YtFn1LCvcraCVpv1rinDOrdZWrCWN1xqZcODFZY1hMG+IErj0QfoL9j8qfGb/cNAb6pAfQG1F8F+DJgZhA1F9yTYeSBdIOziCxskO2mDSpKxp09ZJWy3brC+40835njC2luws/j6nsfPmzGXn5OJFGju1sGNrO7bS1ODZkykKQ5PsIGMc4/xxtfUXAAAA//8DAFBLAQItABQABgAIAAAAIQAUr971LwEAAOACAAATAAAAAAAAAAAAAAAAAAAAAABbQ29udGVudF9UeXBlc10ueG1sUEsBAi0AFAAGAAgAAAAhADj9If/WAAAAlAEAAAsAAAAAAAAAAAAAAAAAYAEAAF9yZWxzLy5yZWxzUEsBAi0AFAAGAAgAAAAhAJptoVsQAQAANwIAAA4AAAAAAAAAAAAAAAAAXwIAAGRycy9lMm9Eb2MueG1sUEsBAi0AFAAGAAgAAAAhAIdsmYBHAQAAWQIAACAAAAAAAAAAAAAAAAAAmwMAAGRycy9jaGFydHMvX3JlbHMvY2hhcnQxLnhtbC5yZWxzUEsBAi0AFAAGAAgAAAAhAKsWzUa5AAAAIgEAABkAAAAAAAAAAAAAAAAAIAUAAGRycy9fcmVscy9lMm9Eb2MueG1sLnJlbHNQSwECLQAUAAYACAAAACEAV1xbm9sAAAAFAQAADwAAAAAAAAAAAAAAAAAQBgAAZHJzL2Rvd25yZXYueG1sUEsBAi0AFAAGAAgAAAAhAMNnTKYKBgAAzCQAABUAAAAAAAAAAAAAAAAAGAcAAGRycy9jaGFydHMvY2hhcnQxLnhtbFBLAQItABQABgAIAAAAIQDFL3TSWwYAAAMbAAAcAAAAAAAAAAAAAAAAAFUNAABkcnMvdGhlbWUvdGhlbWVPdmVycmlkZTEueG1sUEsFBgAAAAAIAAgAFQIAAOoTAAAAAA==" type="#_x0000_t75" o:spid="_x0000_i1027"><v:imagedata o:title="" src="file:///C:\Users\u540894\AppData\Local\Temp\msohtmlclip1\01\clip_image003.png"></v:imagedata><o:lock aspectratio="f" v:ext="edit"></o:lock></v:shape><v:shape id=Chart_x0020_3 style="VISIBILITY: visible; WIDTH: 376.5pt; HEIGHT: 225.75pt" o:gfxdata="UEsDBBQABgAIAAAAIQAUr971LwEAAOACAAATAAAAW0NvbnRlbnRfVHlwZXNdLnhtbKRSy27CMBC8V+o/WL5W2MChqqoEDg09tlVFP8CyNw81fshrAvx9N4EcQCogcbFlrWZmZ8bZcmdb1kHExrucz8SUM3Dam8ZVOf9Zv09eOMOknFGtd5DzPSBfLh4fsvU+ADJCO8x5nVJ4lRJ1DVah8AEcTUofrUr0jJUMSv+qCuR8On2W2rsELk1Sz8EX2SctEBsD7EvF9KEs6UgTUcLcF14LouLs7YDpZXOuQmgbrRItLTtnhMWJL8tGgygirgbUU4+S/3PrmrRQDtfsBolTT0c54/XGkhNhotpSZLYVA+EoXkCpNm1iqx35PUQcocUrbs6kjtEJQg6OsW4CXlC4HNeVWBI1CHI4x1buT+eEbtx8pD8v3fiti9DdUMlJ6wXBvqEb2eXwPxd/AAAA//8DAFBLAwQUAAYACAAAACEAOP0h/9YAAACUAQAACwAAAF9yZWxzLy5yZWxzpJDBasMwDIbvg72D0X1xmsMYo04vo9Br6R7A2IpjGltGMtn69jODwTJ621G/0PeJf3/4TItakSVSNrDrelCYHfmYg4H3y/HpBZRUm71dKKOBGwocxseH/RkXW9uRzLGIapQsBuZay6vW4mZMVjoqmNtmIk62tpGDLtZdbUA99P2z5t8MGDdMdfIG+OQHUJdbaeY/7BQdk9BUO0dJ0zRFd4+qPX3kM66NYjlgNeBZvkPGtWvPgb7v3f3TG9iWOboj24Rv5LZ+HKhlP3q96XL8AgAA//8DAFBLAwQUAAYACAAAACEAmm2hWxABAAA3AgAADgAAAGRycy9lMm9Eb2MueG1snJHBTsMwEETvSPyDtXfqNGoLjer0EiFx4gIfYOx1YymxrbXbwN+ztBEqJ6Tednekp9mZ3f5zHMQJKfsYFCwXFQgMJlofDgre354fnkDkooPVQwyo4Asz7Nv7u92UGqxjHweLJBgScjMlBX0pqZEymx5HnRcxYWDRRRp14ZUO0pKemD4Osq6qjZwi2UTRYM587S4itGe+c2jKq3MZixjYXb3c1iCKgk213YAgBav1I18+WFvXK5DtTjcH0qn3Zvakb7A0ah/YwS+q00WLI/kbUKbXVJhlmvM0mzI3k2YAf/5/0NE5b7CL5jhiKJe0CQdduOrc+5Q5wcZbBfRilz/ZyT8fX+88X/fdfgMAAP//AwBQSwMEFAAGAAgAAAAhAIdsmYBHAQAAWQIAACAAAABkcnMvY2hhcnRzL19yZWxzL2NoYXJ0MS54bWwucmVsc6xSTU/DMAy9I/EfqkggONB01UBjrNuBAtphGh/brRcvdT8gTaIkG9u/x2UqYtIkLlzs2JafX549mmwbGWzQulqrhPXCiAWohM5rVSZsuXi8GrDAeVA5SK0wYTt0bDI+PRm9ogRPTa6qjQsIRbmEVd6bIedOVNiAC7VBRZVC2wY8hbbkBsQHlMjjKLrh9jcGGx9gBtM8YXaaxyxY7AxN/htbF0UtMNVi3aDyR0ZwLXG+ekfhCRRsiT5hRS2RKPP7YbZ0pEO2vu5Hg9t+1uG4LH09i6MSPDryFyDl5T6VgocVOKRsjhuU2rRzs8XbOTTmLqX0Tye9Ye01uaeXZ7Iz9LYWLR5JS1ZUYH0bftYmDrfSdQRnOqe/P2w9WgWS8eMi9f5TJE/LwzndhK1z7HgkLAz5d2Vvu3ovpAW3tPjBQYy/AAAA//8DAFBLAwQUAAYACAAAACEAqxbNRrkAAAAiAQAAGQAAAGRycy9fcmVscy9lMm9Eb2MueG1sLnJlbHOEj80KwjAQhO+C7xD2btN6EJEmvYjQq9QHWNLtD7ZJyEaxb2/Qi4LgcXaYb3bK6jFP4k6BR2cVFFkOgqxx7Wh7BZfmtNmD4Ii2xclZUrAQQ6XXq/JME8YU4mH0LBLFsoIhRn+Qks1AM3LmPNnkdC7MGJMMvfRortiT3Ob5ToZPBugvpqhbBaFuCxDN4lPzf7brutHQ0ZnbTDb+qJBmwBATEENPUcFL8vtaZOlTkLqUX8v0EwAA//8DAFBLAwQUAAYACAAAACEAgPtVXdwAAAAFAQAADwAAAGRycy9kb3ducmV2LnhtbEyPQUvDQBCF74L/YRnBm91ETS1pNkULxYL0YC30us2O2eDubMhu2/TfO3rRy4PHG977plqM3okTDrELpCCfZCCQmmA6ahXsPlZ3MxAxaTLaBUIFF4ywqK+vKl2acKZ3PG1TK7iEYqkV2JT6UsrYWPQ6TkKPxNlnGLxObIdWmkGfudw7eZ9lU+l1R7xgdY9Li83X9ugVxN1yulrv27V9My/5ZhY68+ouSt3ejM9zEAnH9HcMP/iMDjUzHcKRTBROAT+SfpWzp+KB7UHBY5EXIOtK/qevvwEAAP//AwBQSwMEFAAGAAgAAAAhADqdDu9MBwAAukIAABUAAABkcnMvY2hhcnRzL2NoYXJ0MS54bWzsnFtzmzgUgN93Zv+Dl2mnT7HBNnaaqd1xnDpNt2nS2z7s7IsMssOG2wjsOv++5yDJGDApGFO/4MxEcJAEOkcfuh3x5u3GsVtrygLLc0eK1laVFnUNz7Tc5Uj5/m12dq60gpC4JrE9l46UJxoob8d//vHGuDAeCAu/+sSgLcjEDS6MkfIQhv5FpxMYD9QhQdvzqQvXFh5zSAinbNkxGfkBmTt2p6uqg06UiSIyIAdk4BDLlelZkfTeYmEZ9MozVg51Q/4UjNokBA0ED5YfKGMonE3cZWtN7JFC3bPrS6WDQsNmt8S/W7PWfKmNFDvUlFa4gSPzEY7myy7KuiiDI/MRjohhwE0ghjiQErjOJds4PSnpyTh9KelLiS4lupQMpGSgtB5sy30EDWCgtBae/Z4L5JEoA1oNC+PbXjhhlPDSPnmrMCojpKFTGWfJvJUP1uKa4PWAmTyjgDJMapkbflXlYo+ZlCUk4QbjBSH7Qhd4tBi/uv583zJJSFrBA6Xhq79eTF9o/fM3HbzI404JVCE89sOpt3JDnqPG7+GHLbjtSFEjU63HH4h71lU1FTNYj/G/D0WEAG4qMuIn0RPAoXgk/x6KQC5sF/8Hnm2ZM8u2oxO2nE9tWQ71UtWj4nUS0eAMk2LWUU7GhUPYI1dL8OTMPSALa5AL5OCDQ8Q4gkEiKzyvlktQy+uLFxDoXUz+vHb6+7VzjSljtaByuPo0ob5JXoSuiPAlL0JPRPjUSeWBOsnRvSg4aAbN666cX1QLKD/Ujp3yQ5Jt7eBvlqln0rH6MtJQ9KqJBOnKk6Meta3nFU8qSG13c+NIHaUqX6xlqaNsJqCkuCz8RFbQSDuoRFGbUqwJDnZYE5IirF1VYm1G53WyNptNVbVhbfsSy9ajuljDagGsQVAna9Fr7LmXkdqO2oF9UYqjlgT6cM66mTZNSIpw9q4SZ7eE1csZYNZwdgLOsFoAZxDUydn5MLfFils17RjN2rFY62VYE5IirM0qsTbxj84aDoDotgcJwwXoKUF3ceXceibvFQ70HQBldKiPTReTD09EJ1V2n+pq9rDmAI4Q1IljL/XTktTErfwWzrwIxRvB9iD16yXzPLxZFD3pne6nkBRB9boSqrfk6ZBmMR53NQOzYwzM0IhADQR1UpPfPG0xyR+8lQAlfZ/DydAzjZiQFCHjfSUyPqwOmgRpyABr/2K6qMyUBRoRyICgPjJ+R+txrLZikCFCSIoQcVORCLtpKxT5HjzZJB4aEYiAoCECp4OHGSKEpAgRHyoRMVktGyJOTwQaEYiAoD4i1HaBGYDkSz4ehch3xm+d1D7PcCEkRbj4uxIXX6nfcHF6LtCIwAUEtXIxeN3tqcPt/2EeBfEgQ9N75/1B/D93bq0wOMP29v78WYbvzlJz44ePQl5nSBKSIiR9rETSnRE2JJ2eJDQikARBnSSl5pcGqQmmuD3ZkpSHWmFu1HZqJq2XGgwdTo2W9WCQoiLc3Fbi5pO3brg5PTdoROAGgjq50Ydav3se/8+jYotNOxkf0uYlKQHS7hPgcTLLChzt8U4o4Z7wqRJHV9RoODo9R2hE4AiCOjkaJKvsnvamnepTxVHKgJK8TQUysv4EWgmHgrtKZAgnuWxzmbcewBu9Zn4Y7H3E+WE0IpABQZ1k6Klfrk9N3MT8ol+1h5y2lvolOYlTyDXc1HRCBZCyzgJaCW+B+0ogCQ+4BiRwsFyPTzatjEYEkCCoE6RUryiu0zE4x2hispXpUM/Q7Nq8VmJx/nMlMoTPWrYwTRPDXdm537V8Hdbl0oJGBDIgqJWM3DFIjEYRB7P2M5Gkpo7XcGQX6LUSK/RfKuEh3MwaPE7bcKARAQ8I6sSjiANmXn+pxNgkA0+FTlV2qV4rsVb/tRIbwq+rYeO0bKARgQ0I6mQj7W+1r1eVv3pZnI4kXxXIyC7ZayXW7L9VIkP4dTVknJYMNCKQAcGpycjtdxUHI7OfrQIb2WV7rcS6/feKbEQeXg0bp2UDjQhsQFAnG3o/+Zey+r5GJJVCz12gLI7OoW0Kn0dNbGMmmxuxF6Tf1wfgkyAG6kk5eB7wfVqwKX13bzY4pU6indXJ6HE2gUEgwRJHnh6zYBt6tMWdP4Fjubdkg24CQP5ORLK59wIeZc6dCGAeYuaEsJ0ct/DjvtqR4jjOf2dP8INPA3grZtCPsOOcmrgfO9pCHlrG48e5vc3JpZvwm8evGcwLgonYMo7FlsWD3fV4iYq7k1Xo/UuZSIVnCdXZc3tiL10uM0LGMwfp3WIRULlbXGxwg6ylrmBf7T6lxQ+xo4tDlGbzB3HI/x67ZpaJFgsipezRo/oyrUC5TFZGgbHBn1FgdOmShj8oFUqb8xN8XqgCQi9wlPgsAF1S18QKZEdHW4tKfRPx2QBIx2NE0xzwYYF/rODOtZ8SNjOtwL+E7yo8BhNh5CXxxf2jz0BgYqgqlLnEvsKvAzD4usBIYTdmtEgCN4k/OTH+CQAA//8DAFBLAwQUAAYACAAAACEAxS900lsGAAADGwAAHAAAAGRycy90aGVtZS90aGVtZU92ZXJyaWRlMS54bWzsWU+PGzUUvyPxHay5t0l2k3SzarbaZJMutNuuNmlRj87EmXHjGY9sZ7e5ofaIhIQoiAsSNw4IqNRKXMqnWSiCIvUr8GzPTMabCbvbrkCU5pDM2D+//+/52bl67UHE0CERkvK47dUuVz1EYp+PaRy0vTvD/qUND0mF4zFmPCZtb06kd23r/feu4k0VkojchrWCjgkCOrHcxG0vVCrZrFSkD9NYXuYJiWFuwkWEFbyKoDIW+AjoR6yyVq02KxGmsbcFBH0mBnoVQTGOgNftyYT6xEyNpzWNkHPZZQIdYtb2gMSYHw3JA+UhhqWCibZXNR+vsnW1gjfTRUytWFtY1zefdF26YDxdMzxFMMqZ1vr11pWdnL4BMLWM6/V63V4tp2cA2PdJnMpSpFnvb9Q6Gc0CyD4u0+5WG9W6iy/QX1+SudXpdBqtVBZL1IDsY30Jv1Ft1rfXHLwBWXxjCV/vbHe7TQdvQBbfXML3r7SadRdvQCGj8XQJrR3a76fUc8iEs91S+AbAN6opfIGCaMijS7OY8FitirUI3+eiDwANZFjRGKl5QibYh5js4mgkKNYM8CbBhRk75MulIc0LSV/QRLW9DxMcewXIq+ffv3r+FL16/uT44bPjhz8dP3p0/PBHS8tZuIvjoLjw5bef/fn1x+iPp9+8fPxFOV4W8b/+8MkvP39eDoQMWmj44ssnvz178uKrT3//7nEJfFvgURE+pBGR6BY5Qgc8At2MYVzJyUicb8UwxNRZgUOgXUK6p0IHeGuOWRmuQ1zj3RVQPMqA12f3HVkHoZgpWsL5Rhg5wD3OWYeLUgPc0LwKFh7O4qCcuZgVcQcYH5bx7uLYcW1vlkDVzILSsX03JI6Y+wzHCgckJgrpOT4lpES7e5Q6dt2jvuCSTxS6R1EH01KTDOnICaTFol0agV/mZTqDqx3b7N1FHc7KtN4hhy4SEgKzEuGHhDlmvI5nCkdlJIc4YkWD38QqLBNyMBd+EdeTCjwdEMZRb0ykLFtzW4C+BaffwFCvSt2+x+aRixSKTsto3sScF5E7fNoNcZSUYQc0DovYD+QUQhSjfa7K4HvczRD9Dn7A8Up336XEcffpheAODRyRFgGiZ2ZC+xIKtVN/Ixr/XTFmFKqxjYF3xbjtbcPWVJYSuydK8Crcf7Dw7uBZvE8g1pc3nnd1913d9d76ursql89abRcFFmqvbh5sX2y65GhlkzyhjA3UnJGb0vTJEjaLcR8G9Tpz9iP5oSkJ4TEt7g4uENisQYKrj6gKByFOoMeueZpIIFPSgUQJl3C2M8OltDUe+nRlT4YNfWaw9UBitcfHdnhdD2dHg5yM2XICaTlaRuuawFmZrV9JiYLar8OspoU6M7eaEc2UOodbrjL4cFk1GMytCV0Igt4FrNyE07dmDWcTzMhY291uwJlbjE0u0kUyxHBTYE7vDa33so9qxklZrJjLAIidEh/pc94pVitwa2myb8DtLE4qsquvYJd57028lEXwwks6b0+kI4uLyclidNT2Wo21hod8nLS9CRxr4TFKwOtSN36YBXD94ythw/7UZNahUVQ4U8xNghrcVFi7Lyns1IFESLWDZWhDw0ylIcBizcnKv9YAs16UAjbSX0OK9Q0Ihn9NCrCj61oymRBfFZ1dGNG2s69pKeUzRcQgHB+hEZuJAwzu16EK+oyphNsJUxH0C1ylaWubKbc4p0lXvMAyODuOWRLitNzqFM0y2cJNHucymLeCeKBbqexGufOrYlL+glQphvH/TBW9n8B1wfpYe8CHe1mBkc7XtseFCjlUoSSkfl9A42BqB0QLXMfCNAQVXBmbX0EO9a/NOUvDpDWc+tQBDZCgsB+pUBCyD2XJRN8pxGrp3mVJspSQiaiCuDKxYo/IIWFDXQObem/3UAihbqpJWgYM7mT8ue9pBo0C3eQU882pIfnea3Pgn+58bDKDUm4dNg1NZv9cxJJd1a43y7O9t6iInli0WfUsK9ytoJWm/WuKcM6t1lasJY3XGplw4MVljWEwb4gSuPRB+gv2Pyp8Zv9w0BvqkB9AbUXwX4MmBmEDUX3JNh5IF0g7OILGyQ7aYNKkrGnT1klbLdusL7jTzfmeMLaW7Cz+Pqex8+bMZefk4kUaO7WwY2s7ttLU4NmTKQpDk+wgYxzj/HG19RcAAAD//wMAUEsBAi0AFAAGAAgAAAAhABSv3vUvAQAA4AIAABMAAAAAAAAAAAAAAAAAAAAAAFtDb250ZW50X1R5cGVzXS54bWxQSwECLQAUAAYACAAAACEAOP0h/9YAAACUAQAACwAAAAAAAAAAAAAAAABgAQAAX3JlbHMvLnJlbHNQSwECLQAUAAYACAAAACEAmm2hWxABAAA3AgAADgAAAAAAAAAAAAAAAABfAgAAZHJzL2Uyb0RvYy54bWxQSwECLQAUAAYACAAAACEAh2yZgEcBAABZAgAAIAAAAAAAAAAAAAAAAACbAwAAZHJzL2NoYXJ0cy9fcmVscy9jaGFydDEueG1sLnJlbHNQSwECLQAUAAYACAAAACEAqxbNRrkAAAAiAQAAGQAAAAAAAAAAAAAAAAAgBQAAZHJzL19yZWxzL2Uyb0RvYy54bWwucmVsc1BLAQItABQABgAIAAAAIQCA+1Vd3AAAAAUBAAAPAAAAAAAAAAAAAAAAABAGAABkcnMvZG93bnJldi54bWxQSwECLQAUAAYACAAAACEAOp0O70wHAAC6QgAAFQAAAAAAAAAAAAAAAAAZBwAAZHJzL2NoYXJ0cy9jaGFydDEueG1sUEsBAi0AFAAGAAgAAAAhAMUvdNJbBgAAAxsAABwAAAAAAAAAAAAAAAAAmA4AAGRycy90aGVtZS90aGVtZU92ZXJyaWRlMS54bWxQSwUGAAAAAAgACAAVAgAALRUAAAAA" type="#_x0000_t75" o:spid="_x0000_i1026"><v:imagedata o:title="" src="file:///C:\Users\u540894\AppData\Local\Temp\msohtmlclip1\01\clip_image005.png"></v:imagedata><o:lock aspectratio="f" v:ext="edit"></o:lock></v:shape><v:shape id=Chart_x0020_4 style="VISIBILITY: visible; WIDTH: 376.5pt; HEIGHT: 225.75pt" o:gfxdata="UEsDBBQABgAIAAAAIQAUr971LwEAAOACAAATAAAAW0NvbnRlbnRfVHlwZXNdLnhtbKRSy27CMBC8V+o/WL5W2MChqqoEDg09tlVFP8CyNw81fshrAvx9N4EcQCogcbFlrWZmZ8bZcmdb1kHExrucz8SUM3Dam8ZVOf9Zv09eOMOknFGtd5DzPSBfLh4fsvU+ADJCO8x5nVJ4lRJ1DVah8AEcTUofrUr0jJUMSv+qCuR8On2W2rsELk1Sz8EX2SctEBsD7EvF9KEs6UgTUcLcF14LouLs7YDpZXOuQmgbrRItLTtnhMWJL8tGgygirgbUU4+S/3PrmrRQDtfsBolTT0c54/XGkhNhotpSZLYVA+EoXkCpNm1iqx35PUQcocUrbs6kjtEJQg6OsW4CXlC4HNeVWBI1CHI4x1buT+eEbtx8pD8v3fiti9DdUMlJ6wXBvqEb2eXwPxd/AAAA//8DAFBLAwQUAAYACAAAACEAOP0h/9YAAACUAQAACwAAAF9yZWxzLy5yZWxzpJDBasMwDIbvg72D0X1xmsMYo04vo9Br6R7A2IpjGltGMtn69jODwTJ621G/0PeJf3/4TItakSVSNrDrelCYHfmYg4H3y/HpBZRUm71dKKOBGwocxseH/RkXW9uRzLGIapQsBuZay6vW4mZMVjoqmNtmIk62tpGDLtZdbUA99P2z5t8MGDdMdfIG+OQHUJdbaeY/7BQdk9BUO0dJ0zRFd4+qPX3kM66NYjlgNeBZvkPGtWvPgb7v3f3TG9iWOboj24Rv5LZ+HKhlP3q96XL8AgAA//8DAFBLAwQUAAYACAAAACEAmm2hWxABAAA3AgAADgAAAGRycy9lMm9Eb2MueG1snJHBTsMwEETvSPyDtXfqNGoLjer0EiFx4gIfYOx1YymxrbXbwN+ztBEqJ6Tednekp9mZ3f5zHMQJKfsYFCwXFQgMJlofDgre354fnkDkooPVQwyo4Asz7Nv7u92UGqxjHweLJBgScjMlBX0pqZEymx5HnRcxYWDRRRp14ZUO0pKemD4Osq6qjZwi2UTRYM587S4itGe+c2jKq3MZixjYXb3c1iCKgk213YAgBav1I18+WFvXK5DtTjcH0qn3Zvakb7A0ah/YwS+q00WLI/kbUKbXVJhlmvM0mzI3k2YAf/5/0NE5b7CL5jhiKJe0CQdduOrc+5Q5wcZbBfRilz/ZyT8fX+88X/fdfgMAAP//AwBQSwMEFAAGAAgAAAAhAIdsmYBHAQAAWQIAACAAAABkcnMvY2hhcnRzL19yZWxzL2NoYXJ0MS54bWwucmVsc6xSTU/DMAy9I/EfqkggONB01UBjrNuBAtphGh/brRcvdT8gTaIkG9u/x2UqYtIkLlzs2JafX549mmwbGWzQulqrhPXCiAWohM5rVSZsuXi8GrDAeVA5SK0wYTt0bDI+PRm9ogRPTa6qjQsIRbmEVd6bIedOVNiAC7VBRZVC2wY8hbbkBsQHlMjjKLrh9jcGGx9gBtM8YXaaxyxY7AxN/htbF0UtMNVi3aDyR0ZwLXG+ekfhCRRsiT5hRS2RKPP7YbZ0pEO2vu5Hg9t+1uG4LH09i6MSPDryFyDl5T6VgocVOKRsjhuU2rRzs8XbOTTmLqX0Tye9Ye01uaeXZ7Iz9LYWLR5JS1ZUYH0bftYmDrfSdQRnOqe/P2w9WgWS8eMi9f5TJE/LwzndhK1z7HgkLAz5d2Vvu3ovpAW3tPjBQYy/AAAA//8DAFBLAwQUAAYACAAAACEAqxbNRrkAAAAiAQAAGQAAAGRycy9fcmVscy9lMm9Eb2MueG1sLnJlbHOEj80KwjAQhO+C7xD2btN6EJEmvYjQq9QHWNLtD7ZJyEaxb2/Qi4LgcXaYb3bK6jFP4k6BR2cVFFkOgqxx7Wh7BZfmtNmD4Ii2xclZUrAQQ6XXq/JME8YU4mH0LBLFsoIhRn+Qks1AM3LmPNnkdC7MGJMMvfRortiT3Ob5ToZPBugvpqhbBaFuCxDN4lPzf7brutHQ0ZnbTDb+qJBmwBATEENPUcFL8vtaZOlTkLqUX8v0EwAA//8DAFBLAwQUAAYACAAAACEAzkF1fdsAAAAFAQAADwAAAGRycy9kb3ducmV2LnhtbEyOQUvDQBCF74L/YRnBm920GpWYTSmCIuKlrYLHSTJmg9nZJLtto7/eqRe9DDze45svX06uU3saQ+vZwHyWgCKufN1yY+B1+3BxCypE5Bo7z2TgiwIsi9OTHLPaH3hN+01slEA4ZGjAxthnWofKksMw8z2xdB9+dBgljo2uRzwI3HV6kSTX2mHL8sFiT/eWqs/NzhlInh5jpYe+HOwK12/vi+/h+WVrzPnZtLoDFWmKf2M46os6FOJU+h3XQXXCkN3vle4mvZRYGrhK5ynoItf/7YsfAAAA//8DAFBLAwQUAAYACAAAACEAfe5WGScHAABxPwAAFQAAAGRycy9jaGFydHMvY2hhcnQxLnhtbOxb33ObOBB+v5n7H3xMO32KDbaxHU/tjuPUaXrNjybtPdzciwyywwUQI3Dq/Pe3QsIYMClY0fUFZyYSyyLY3e+TBNK+/7D13NYTpqFD/IlmtHWthX2L2I6/nmjfvy1ORlorjJBvI5f4eKI941D7MP39t/fW2HpANLoPkIVb0Igfjq2J9hBFwbjTCa0H7KGwTQLsw7kVoR6K4JCuOzZFP6Bxz+10dX3QiRvRRAPoiAY85PjJ9bTK9WS1cix8TqyNh/2IPwXFLorAA+GDE4TaFIxzkb9uPSF3omH/5OJM6zCh5dIrFNw80dZybUw0NzK0VrSFmv0IteW6y2RdJoOa/Qg1ZFlwE9AQlUQC57lkp9NLJL1Ep59I+onETCRmIhkkkoHWenAd/xE8wAqttSLuJy5IasIGFjVmTOCSaEYx4tY+k00U27hEdJ6oQP3codwNFnF5A2tKNgFEkIsDTJmF9xGyHrHNNUJMWaOOveU6OhcTamPRmJBEW6YXRvQOr1htNX138fW2ZaMItcIHjKN3f7yZvzH6o/cddpLrzhGAi9WDaE42fsTvYfB7BFELbjvR9DiIT9PPyD/p6obOGniasv8BGA8F3FQ0xA/iJ4CqeKTgFkxA45C4jr1wXDc+oOvl3E0s0M90Mzajk1FjrcUXA1pQ7OeXzTsD807Hb6Awuz+3sn/YyousecxI7gZDuGFWptAVCndlCj2hcN3JtfGCD4XhwB4WJn/j/SS8YD9Eec9+uGQXZd53zImNp/rb2ENxZxIL8iAocY/eNsvMSxykt7ulOomPciBKvZz4qNgIOCm1hR8kQIu9w5zIyZLnjMDzHmeEpApnzqU4s8BLNZxZLOa63nDmYL9ThzMsvMAZKFRyJu6O0j4zhXvKmbhfPqRSnTJZYh7Pl25hjBGSKnz5KMWXK0RV8QXo0vBFmi8svMAXKFTyZTQsHUFSxhivMcy8Fmd6Bc4ISRXOLKQ4MwtekTPsZQPvZmYwNYc5Cxq7G++K2Hx2ODD3iJSowzywmboxLCUzVKjWGYYYAoBWUKikVS/3M7LoPzAslSlUH5Tag9yvl23z+GFKzFD3pnVCUoVyF1KUu0LPxwxTzVtMhbcYFhmgAhQqqVA+dqQDTOkYVAP9+fscD3ezMMIISRW4f5KC++fNUW/+DdwrwJ1FBuAOhTq4/x/9/Gv16oMCzIWkCswvJWHuNr26om9TLDIAcygamLMv4cMCzIWkCsw/S8F8tlk3MFcEcxYZgDkU6mCutyu8HWe743Rm/0umLqMC2IWkCtj/lAL7PQ4asCsCO4sMgB0KpWAfnHZ7+nD3f1gG7XTibpi9UX+Q/pefyA/bu/vzZxl+PMl91D1+Zn9aoIeQVKHHFyl63FhRQw9F9GCRAXpAoZIeua8rg9znlbTn39GjjD81hobcd6Re7gXjeCoYYjV776NOIqpChispMlyTp4YMisjAIgNkgEIlGcyh0e+O0v9lUN9xoZ3Vh2vLLqnBjv0nYPVskxLkOLCQXWMl+1qKHOfYasihiBwsMkAOKFSSY5DF4YGRoZ2b0qQqddCfvY0E3Ivr0EaNhegbKbiLzU7Fge3lzU7NJ88KnzxZZADuUKiEu5n7lW6wSAeDn0xrDtChbeR+WfCnV+z2NWUVJNhRXHE2aiw530qxQ2xrathRcSdknaVgFhlgBxQq2ZGblKRATdnwGoNBESHH7uErrvYaNZZ7v0rBXexKKhrTDAbSG4pYZADuUCiFe+m8PsV7lf1E7ReUXr+LLy75GjXWfO+kMC92FTWYV9DFs8gA5qFQifkqm+iys5F0FKgx3y8wQmJOU1z8NWqs/t5LAV7s6WkArwDwLDIAeChUAj6/1yaFc9rJly+dVYd8ljQScC8uAhs1VoG/ScFd7Olp4K4A7iwyAHcofjXcS6c91dFeyOaRAHxxIdiosRL8XRLw8e6eBvAKAM8iA4CHQiXgzX72LxfKQ9197gqzdHWsOh+O7f0JZAa7KBApljwXxRqj7aXYV9/vn3aN05F4qc3Ke2aX565Y4/2cUvisMIvTPrPaaSuhhSBvdc1SBwl1ILc0zszlj+A5/hXasqVnIPSeItrekpCrLPnCNLyyL7wIsmBZ5jFLFpxonuf9c/IMP8hoJhtIW/0CibLYZsmiceZr5FiPX5buriUfb6NvhJ+zKAnDmchnZVYn1sGWeXYKi7ujTUT+xlRcxY6E73gz7tKduWufy6yI7qQ3q1WIk1RWkfMT78bnvoJkwUNOSx9izxfHOE2k9nroX0IvqGNDAHAYO+WAH/W3eQcmCzp1HJgG/AUHxqfOcPQDY+G0JT9gjgMICL9ALZPNjNfYtxmA3Li2i2jibySyneE6rhGnE0M+9F9OeOO7z5mY2U4YnEE6+GM4E0Feo0DcP85eZxcDVDD1kXvOUpcppD5PNHppx1/+4SZppvz0PwAAAP//AwBQSwMEFAAGAAgAAAAhAMUvdNJbBgAAAxsAABwAAABkcnMvdGhlbWUvdGhlbWVPdmVycmlkZTEueG1s7FlPjxs1FL8j8R2subdJdpN0s2q22mSTLrTbrjZpUY/OxJlx4xmPbGe3uaH2iISEKIgLEjcOCKjUSlzKp1kogiL1K/Bsz0zGmwm7265AlOaQzNg/v//v+dm5eu1BxNAhEZLyuO3VLlc9RGKfj2kctL07w/6lDQ9JheMxZjwmbW9OpHdt6/33ruJNFZKI3Ia1go4JAjqx3MRtL1Qq2axUpA/TWF7mCYlhbsJFhBW8iqAyFvgI6EesslatNisRprG3BQR9JgZ6FUExjoDX7cmE+sRMjac1jZBz2WUCHWLW9oDEmB8NyQPlIYalgom2VzUfr7J1tYI300VMrVhbWNc3n3RdumA8XTM8RTDKmdb69daVnZy+ATC1jOv1et1eLadnANj3SZzKUqRZ72/UOhnNAsg+LtPuVhvVuosv0F9fkrnV6XQarVQWS9SA7GN9Cb9Rbda31xy8AVl8Ywlf72x3u00Hb0AW31zC96+0mnUXb0Aho/F0Ca0d2u+n1HPIhLPdUvgGwDeqKXyBgmjIo0uzmPBYrYq1CN/nog8ADWRY0RipeUIm2IeY7OJoJCjWDPAmwYUZO+TLpSHNC0lf0ES1vQ8THHsFyKvn3796/hS9ev7k+OGz44c/HT96dPzwR0vLWbiL46C48OW3n/359cfoj6ffvHz8RTleFvG//vDJLz9/Xg6EDFpo+OLLJ789e/Liq09//+5xCXxb4FERPqQRkegWOUIHPALdjGFcyclInG/FMMTUWYFDoF1CuqdCB3hrjlkZrkNc490VUDzKgNdn9x1ZB6GYKVrC+UYYOcA9zlmHi1ID3NC8ChYezuKgnLmYFXEHGB+W8e7i2HFtb5ZA1cyC0rF9NySOmPsMxwoHJCYK6Tk+JaREu3uUOnbdo77gkk8UukdRB9NSkwzpyAmkxaJdGoFf5mU6g6sd2+zdRR3OyrTeIYcuEhICsxLhh4Q5ZryOZwpHZSSHOGJFg9/EKiwTcjAXfhHXkwo8HRDGUW9MpCxbc1uAvgWn38BQr0rdvsfmkYsUik7LaN7EnBeRO3zaDXGUlGEHNA6L2A/kFEIUo32uyuB73M0Q/Q5+wPFKd9+lxHH36YXgDg0ckRYBomdmQvsSCrVTfyMa/10xZhSqsY2Bd8W47W3D1lSWErsnSvAq3H+w8O7gWbxPINaXN553dfdd3fXe+rq7KpfPWm0XBRZqr24ebF9suuRoZZM8oYwN1JyRm9L0yRI2i3EfBvU6c/Yj+aEpCeExLe4OLhDYrEGCq4+oCgchTqDHrnmaSCBT0oFECZdwtjPDpbQ1Hvp0ZU+GDX1msPVAYrXHx3Z4XQ9nR4OcjNlyAmk5WkbrmsBZma1fSYmC2q/DrKaFOjO3mhHNlDqHW64y+HBZNRjMrQldCILeBazchNO3Zg1nE8zIWNvdbsCZW4xNLtJFMsRwU2BO7w2t97KPasZJWayYywCInRIf6XPeKVYrcGtpsm/A7SxOKrKrr2CXee9NvJRF8MJLOm9PpCOLi8nJYnTU9lqNtYaHfJy0vQkca+ExSsDrUjd+mAVw/eMrYcP+1GTWoVFUOFPMTYIa3FRYuy8p7NSBREi1g2VoQ8NMpSHAYs3Jyr/WALNelAI20l9DivUNCIZ/TQqwo+taMpkQXxWdXRjRtrOvaSnlM0XEIBwfoRGbiQMM7tehCvqMqYTbCVMR9AtcpWlrmym3OKdJV7zAMjg7jlkS4rTc6hTNMtnCTR7nMpi3gnigW6nsRrnzq2JS/oJUKYbx/0wVvZ/AdcH6WHvAh3tZgZHO17bHhQo5VKEkpH5fQONgagdEC1zHwjQEFVwZm19BDvWvzTlLw6Q1nPrUAQ2QoLAfqVAQsg9lyUTfKcRq6d5lSbKUkImogrgysWKPyCFhQ10Dm3pv91AIoW6qSVoGDO5k/LnvaQaNAt3kFPPNqSH53mtz4J/ufGwyg1JuHTYNTWb/XMSSXdWuN8uzvbeoiJ5YtFn1LCvcraCVpv1rinDOrdZWrCWN1xqZcODFZY1hMG+IErj0QfoL9j8qfGb/cNAb6pAfQG1F8F+DJgZhA1F9yTYeSBdIOziCxskO2mDSpKxp09ZJWy3brC+40835njC2luws/j6nsfPmzGXn5OJFGju1sGNrO7bS1ODZkykKQ5PsIGMc4/xxtfUXAAAA//8DAFBLAQItABQABgAIAAAAIQAUr971LwEAAOACAAATAAAAAAAAAAAAAAAAAAAAAABbQ29udGVudF9UeXBlc10ueG1sUEsBAi0AFAAGAAgAAAAhADj9If/WAAAAlAEAAAsAAAAAAAAAAAAAAAAAYAEAAF9yZWxzLy5yZWxzUEsBAi0AFAAGAAgAAAAhAJptoVsQAQAANwIAAA4AAAAAAAAAAAAAAAAAXwIAAGRycy9lMm9Eb2MueG1sUEsBAi0AFAAGAAgAAAAhAIdsmYBHAQAAWQIAACAAAAAAAAAAAAAAAAAAmwMAAGRycy9jaGFydHMvX3JlbHMvY2hhcnQxLnhtbC5yZWxzUEsBAi0AFAAGAAgAAAAhAKsWzUa5AAAAIgEAABkAAAAAAAAAAAAAAAAAIAUAAGRycy9fcmVscy9lMm9Eb2MueG1sLnJlbHNQSwECLQAUAAYACAAAACEAzkF1fdsAAAAFAQAADwAAAAAAAAAAAAAAAAAQBgAAZHJzL2Rvd25yZXYueG1sUEsBAi0AFAAGAAgAAAAhAH3uVhknBwAAcT8AABUAAAAAAAAAAAAAAAAAGAcAAGRycy9jaGFydHMvY2hhcnQxLnhtbFBLAQItABQABgAIAAAAIQDFL3TSWwYAAAMbAAAcAAAAAAAAAAAAAAAAAHIOAABkcnMvdGhlbWUvdGhlbWVPdmVycmlkZTEueG1sUEsFBgAAAAAIAAgAFQIAAAcVAAAAAA==" type="#_x0000_t75" o:spid="_x0000_i1025"><v:imagedata o:title="" src="file:///C:\Users\u540894\AppData\Local\Temp\msohtmlclip1\01\clip_image007.png"></v:imagedata><o:lock aspectratio="f" v:ext="edit"></o:lock></v:shape>
 

Excel Facts

Excel Wisdom
Using a mouse in Excel is the work equivalent of wearing a lanyard when you first get to college

Forum statistics

Threads
1,224,583
Messages
6,179,672
Members
452,937
Latest member
Bhg1984

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top