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" oreferrelative="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><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></vath><?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><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>
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" oreferrelative="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><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></vath><?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><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>