Attribute VB_Name = "Module1"

Sub GrafViittaukset()
1  ActiveChart.ChartTitle.Caption = "Testi"
2  ActiveSheet.ChartObjects("Chart 1").Chart.ChartTitle.Caption = "Testi"
3  ThisWorkbook.Worksheets("Sheet1").ChartObjects(1).Chart.ChartTitle.Caption = "Testi"
4  Charts("Chart1").ChartTitle.Caption = "Testi"
5  Sheets("Chart1").ChartTitle.Caption = "Testi"
6  Charts(1).ChartTitle.Caption = "Testi"
End Sub

Function UpotettujaKaavioita() As Long
1  UpotettujaKaavioita = ActiveSheet.ChartObjects.Count
End Function

Sub AktivoiKaavio(ByVal KaavioNo As Long)
1  If (KaavioNo <= UpotettujaKaavioita) And (KaavioNo > 0) Then
2    ActiveSheet.ChartObjects(KaavioNo).Activate
3  End If
End Sub

Sub TestaaUpotettujaKaavioita()
1  MsgBox UpotettujaKaavioita
2  AktivoiKaavio (UpotettujaKaavioita)
End Sub

Sub GrafObjektinValinta()
'Rivillä 3 otetaan aktiivisella taulukkosivulla olevien kaavioien kappalemäärä talteen GrafLkm-muuttujaan.
'Tämän jälkeen käyttäjältä kysytään, mihin näistä objekteista hän haluaa siirtyä.
'Tämä tehdään silmukassa (rivit 5-7), jolla varmistetaan, että käyttäjä anta InputBox-funktiolle numeerisen arvon.
'Tämän jälkeen käyttäjän kirjoittama valinta tarkistetaan (rivi 8) ja jos se on kelvollinen, tämän numeron mukainen kaavio aktivoidaan (rivi 9).
1  Dim GrafLkm As Long
2  Dim GrafVal As Variant
3  GrafLkm = ActiveSheet.ChartObjects.Count
4  If GrafLkm > 0 Then
5    Do
6      GrafVal = InputBox("Valitse objekti " & Chr(10) & "valittava 1-" & GrafLkm)
7    Loop Until IsNumeric(GrafVal)
8    If (CLng(GrafVal) > 0) And (CLng(GrafVal) <= GrafLkm) Then
9      ActiveSheet.ChartObjects(CLng(GrafVal)).Activate
10    Else
11      MsgBox "väärä valinta"
12    End If
13  Else
14    MsgBox "Ei objekteja"
15  End If
  ActiveChart.ChartTitle.Caption = "Testi"
End Sub

Function KaavioSivuja() As Long
1  KaavioSivuja = ThisWorkbook.Charts.Count
End Function

Sub AktivoiKaavioSivu(ByVal KaavioNo As Long)
1  If (KaavioNo <= KaavioSivuja) And (KaavioNo > 0) Then
2    ThisWorkbook.Charts(KaavioNo).Activate
3  End If
End Sub

Sub TestaaKaavioSivuja()
1  MsgBox KaavioSivuja
2  AktivoiKaavioSivu (KaavioSivuja)
End Sub

Sub GrafSivunValinta()
'Rivillä 9 käyttäjän valitsema kaaviosivu aktivoidaan.
'Kaaviosivujen numerointi noudattaa samaa logiikkaa kuin taulukkosivujen numerointikin,
'  eli vasemmanpuoleisin kaaviosivu on indeksiltään yksi ja siitä numerointi jatkuu juoksevana oikealle.
'Vasemmanpuoleisimmalla kaaviosivulla viitataan sivujen kielekkeisiin näytön vasemmassa alakulmassa.
1  Dim GrafLkm As Long
2  Dim GrafVal As Variant
3  GrafLkm = ThisWorkbook.Charts.Count
4  If GrafLkm > 0 Then
5    Do
6      GrafVal = InputBox("Valitse sivu " & Chr(10) & "valittava 1-" & GrafLkm)
7    Loop Until IsNumeric(GrafVal)
8    If (CLng(GrafVal) > 0) And (CLng(GrafVal) <= GrafLkm) Then
9      ThisWorkbook.Charts(CLng(GrafVal)).Activate
10    Else
11      MsgBox "väärä valinta"
12    End If
13  Else
14    MsgBox "Ei objekteja"
15  End If
End Sub