Attribute VB_Name = "Module1"
Sub LegendPaikkaDemo()
'LegendPaikkaDemo-aliohjelmassa määritellään ensin (rivi 3),
'  että kaaviossa on  selitelaatikko ja lopulta (rivi 12) määritellään kaavion paikka käyttäjän valinnan mukaan.
'Näiden rivien välissä käyttäjältä kysytään haluttu selitteen paikka (rivit 4-6)
'  ja vastauksen perusteella asetetaan arvo muuttujaan LegPaikka (rivit 7-8).
'Jos käyttäjä on valinnut selitteen ylös,
'  muuttujaan asetetaan arvoksi xlLegendPositionTop.
'Alas-valinnassa käytetään vastaavalla tavalla vakiota xlLegendPositionBottom.
'Myös muita oletussijainnin paikkoja on tietenkin mahdollista käyttää.
On Error GoTo Loppu
1   Dim LegVal As Variant
2   Dim LegPaikka As Variant
3   ActiveChart.HasLegend = True
4   Do
5     LegVal = InputBox("Valitse selitteen paikka " & _
        Chr(10) & "1 = ylhäällä" & _
        Chr(10) & "2 = alhaalla" & _
        Chr(10) & "3 = kulmassa" & _
        Chr(10) & "4 = vasemmalla" & _
        Chr(10) & "5 = oikealla")
6   Loop Until IsNumeric(LegVal)
7   Select Case LegVal
     Case 1: LegPaikka = xlLegendPositionTop
     Case 2: LegPaikka = xlLegendPositionBottom
     Case 3: LegPaikka = xlLegendPositionCorner
     Case 4: LegPaikka = xlLegendPositionLeft
     Case 5: LegPaikka = xlLegendPositionRight
     Case Else: LegPaikka = "N/A"
8  End Select
9  If LegPaikka = "N/A" Then
10    MsgBox "virhe"
11  Else
12    ActiveChart.Legend.Position = LegPaikka
13  End If
Exit Sub
Loppu:
  MsgBox "Virhe, olihan kaavio varmasti aktiivinen?"
End Sub