select any chart in worksheet

[louay]

is there any way to select chart via name

using vba code in excel

 

[Domenic]

Try...

ActiveSheet.ChartObjects("Chart 1").Select

However, it's usually not necessary to select an object before setting its properties/methods.

 

[louay]

sorry you don't understand what i meant
i want form can select any chart from my worksheet to modify on it

 

[Domenic]

Unfortunately, I still don't understand. Can you please elaborate?

 

[louay]

sorry another time ......
in excel i have more than chart already i want modify on one of them
so i need to make form if i but name of chart automatically selected


by example ...... if i but in InputBox ("test")
the code fill with >
ActiveSheet.ChartObjects("test").Select

 

[louay]

please help me please ..........................................

 

[shg]

Do you mean ...

ActiveSheet.ChartObjects(InputBox("Chart name?")).Select

 

[louay]

very brilliant thank you
now if i want change the title of chart i selected


for example


.HasTitle = True
.ChartTitle.Text = Application.InputBox("")

whit your code

 

[louay]

the all idea is select chart from already saved in excel and change the title of it

 

[Domenic]

Or, with error checking, maybe...

[FONT=Courier New][COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit[/COLOR]

[COLOR=darkblue]Sub[/COLOR] test()
    
    [COLOR=darkblue]Dim[/COLOR] ChrtObj [COLOR=darkblue]As[/COLOR] ChartObject
    [COLOR=darkblue]Dim[/COLOR] ChartName [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
    
    ChartName = Application.InputBox( _
        Prompt:="Please enter a chart name...", _
        Title:="Chart Name")
        
    [COLOR=darkblue]If[/COLOR] ChartName = "False" [COLOR=darkblue]Then[/COLOR] [COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
    
    [COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]Resume[/COLOR] [COLOR=darkblue]Next[/COLOR]
    [COLOR=darkblue]Set[/COLOR] ChrtObj = ActiveSheet.ChartObjects(ChartName)
    [COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]GoTo[/COLOR] 0
    
    [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] ChrtObj [COLOR=darkblue]Is[/COLOR] [COLOR=darkblue]Nothing[/COLOR] [COLOR=darkblue]Then[/COLOR]
        ChrtObj.Select
    [COLOR=darkblue]Else[/COLOR]
        MsgBox "A chart named '" & ChartName & "' does not exist, please try again!", vbExclamation
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[/FONT]