Change Chart Title - Based on Drop Down

[excelenergy]

Hello,

I don't care if I have to use VBA or a formula, I was just hoping someone might know how to do this...
I have a 'form control' drop down list (it is NOT) a data validation drop down list...Its a form control. The form control has a list of Fruit...Everytime someone selects a different fruit I want the name of my chart title to change to whatever was selected in the drop down.

Does anyone know how to make that happen?

Thank you In advance!!

 

[hotabae]

Given -

Chart Name = "Chart 1"
Drop Down Name = "DropDown 1"


Try this:

Sub DropDown1_Change()

dim dd As DropDown
Set dd = [COLOR=#303336][FONT=Consolas]ActiveSheet.Shapes(Application.Caller).OLEFormat.Object[/FONT][/COLOR]

[COLOR=#303336][FONT=Consolas]ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartTile.Text = dd.List(dd.ListIndex)

End Sub

[/FONT][/COLOR]

If the chart has a different name, replace "Chart 1" with "yournamehere"

If the drop down has a different name, just rename the Sub, right click the dropdown element and Assign Macro... to the newly named sub

 

[excelenergy]

And that did the trick!!

Thank you!

Given -

Chart Name = "Chart 1"
Drop Down Name = "DropDown 1"


Try this:

Sub DropDown1_Change()

dim dd As DropDown
Set dd = [COLOR=#303336][FONT=Consolas]ActiveSheet.Shapes(Application.Caller).OLEFormat.Object[/FONT][/COLOR]

[COLOR=#303336][FONT=Consolas]ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartTile.Text = dd.List(dd.ListIndex)

End Sub

[/FONT][/COLOR]

If the chart has a different name, replace "Chart 1" with "yournamehere"

If the drop down has a different name, just rename the Sub, right click the dropdown element and Assign Macro... to the newly named sub