How to link several charts in the same worksheet?
 

Hi there!

I have to creat links for some charts on the bottom of my worksheet. Since
charts are not assigned to a cell, I've searched some forums but nothing
worked.
Can anyone help me?
I've got macros on my workbook to open the file on the same worksheet. No
macros on any worksheet individually.

Here're my 3 findings and the instructions i followed for the fist link. For
the other links I guess I just need to add more IF's or buttons:



============1============

Create a Hyperlink to cell A1 on the same sheet (you can change the text to
display to make it meaningful). Right click the sheet tab and choose View
Code. Paste this into the window on the right:

code:
--------------------------------------------------------------------------------

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Right(Target.Name, 2) = "A1" Then
Sheets("Chart1").Activate
End If
End Sub

--------------------------------------------------------------------------------

Change the reference to Chart1 to suit. Press Alt+F11 to return to your
worksheet, and try it out.



============2============

code:
--------------------------------------------------------------------------------

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Name = "Sheet2!A1" Then
ActiveSheet.ChartObjects("Chart 1").Activate
End If
End Sub



============3============

It's probably easier to add a button off the control toolbox and edit its
code to the following (change Chart1 to whatever your chart sheet is called)

Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Chart1").Select
End Sub



HOPE TO GET YOUR HELP

Bruno

How to link several charts in the same worksheet?
 

Hi,

Do you mean you want a link at the top of the sheet that links to a chart
further down? If so, why not like to a cell near or under the charts? In
that case you would have a couple of hyperlink near the top of the
spreadsheet each linked to a different cell near each chart. To make the
hyperlink just press Ctrl+K and pick Place in This Document, and from the
right hand side select the sheet and then enter the cell address in the Type
the cell reference. Edit the Text to Display so you know where the hyperlink
is going.

--
Thanks,
Shane Devenshire


"Bruno" wrote:


Hi there!

I have to creat links for some charts on the bottom of my worksheet. Since
charts are not assigned to a cell, I've searched some forums but nothing
worked.
Can anyone help me?
I've got macros on my workbook to open the file on the same worksheet. No
macros on any worksheet individually.

Here're my 3 findings and the instructions i followed for the fist link. For
the other links I guess I just need to add more IF's or buttons:



============1============

Create a Hyperlink to cell A1 on the same sheet (you can change the text to
display to make it meaningful). Right click the sheet tab and choose View
Code. Paste this into the window on the right:

code:
--------------------------------------------------------------------------------

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Right(Target.Name, 2) = "A1" Then
Sheets("Chart1").Activate
End If
End Sub

--------------------------------------------------------------------------------

Change the reference to Chart1 to suit. Press Alt+F11 to return to your
worksheet, and try it out.



============2============

code:
--------------------------------------------------------------------------------

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Name = "Sheet2!A1" Then
ActiveSheet.ChartObjects("Chart 1").Activate
End If
End Sub



============3============

It's probably easier to add a button off the control toolbox and edit its
code to the following (change Chart1 to whatever your chart sheet is called)

Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Chart1").Select
End Sub



HOPE TO GET YOUR HELP

Bruno

How to link several charts in the same worksheet?
 

That was my first idea when I created the document, but the entries on the
top of the spreadsheet keep pushing the links down, and the charts don't
follow them.

Can anyone help me with this code problem?


"ShaneDevenshire" wrote:

Hi,

Do you mean you want a link at the top of the sheet that links to a chart
further down? If so, why not like to a cell near or under the charts? In
that case you would have a couple of hyperlink near the top of the
spreadsheet each linked to a different cell near each chart. To make the
hyperlink just press Ctrl+K and pick Place in This Document, and from the
right hand side select the sheet and then enter the cell address in the Type
the cell reference. Edit the Text to Display so you know where the hyperlink
is going.

--
Thanks,
Shane Devenshire


"Bruno" wrote:


Hi there!

I have to creat links for some charts on the bottom of my worksheet. Since
charts are not assigned to a cell, I've searched some forums but nothing
worked.
Can anyone help me?
I've got macros on my workbook to open the file on the same worksheet. No
macros on any worksheet individually.

Here're my 3 findings and the instructions i followed for the fist link. For
the other links I guess I just need to add more IF's or buttons:



============1============

Create a Hyperlink to cell A1 on the same sheet (you can change the text to
display to make it meaningful). Right click the sheet tab and choose View
Code. Paste this into the window on the right:

code:
--------------------------------------------------------------------------------

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Right(Target.Name, 2) = "A1" Then
Sheets("Chart1").Activate
End If
End Sub

--------------------------------------------------------------------------------

Change the reference to Chart1 to suit. Press Alt+F11 to return to your
worksheet, and try it out.



============2============

code:
--------------------------------------------------------------------------------

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Name = "Sheet2!A1" Then
ActiveSheet.ChartObjects("Chart 1").Activate
End If
End Sub



============3============

It's probably easier to add a button off the control toolbox and edit its
code to the following (change Chart1 to whatever your chart sheet is called)

Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Chart1").Select
End Sub



HOPE TO GET YOUR HELP

Bruno