Thema: Hyperlinks zu Grafikdateien

• Übergabe des Funktionswertes zur Ermittlung eines Dateinamens an den Tag von CommandButton1

Private Sub CommandButton1_Click()
   CommandButton1.Tag = SelectPicture
End Sub

• Übergabe des Funktionswertes zur Ermittlung eines Dateinamens an den Tag von CommandButton2

Private Sub CommandButton2_Click()
   CommandButton1.Tag = SelectPicture
End Sub

• Übergabe des Funktionswertes zur Ermittlung eines Dateinamens an den Tag von CommandButton3

Private Sub CommandButton3_Click()
   CommandButton1.Tag = SelectPicture
End Sub

• Variablendeklaration
• Dateinamen ermitteln
• Wenn kein Dateiname ausgewählt wurde...
• Falsean Funktion übergeben
• Sonst...
• Dateinamen an Funktion übergeben

Private Function SelectPicture() as String
   Dim var As Variant
   var = Application.GetOpenFilename("Bild-Dateien (*.gif), *.gif")
   If var = False Then
      SelectPicture = "False"
   Else
      SelectPicture = var
   End If
End Function

• Variablendeklaration
• Schleife bilden
• Schaltflächen-Tag in String-Variable übergeben
• TextBox-Wert in Zelle eintragen
• Wenn der Wert der String-Variablen nicht "False" und die Variable nicht leer ist...
• Der Zelle einen Hyperlink mit der Adresse der Stirng-Variablen hinzufügen

Private Sub cmdOK_Click()
   Dim iCounter As Integer
   Dim sTag As String
   Rows(1).Clear
   For iCounter = 1 To 3
      sTag = Controls("CommandButton" & iCounter).Tag
      Cells(1, iCounter).Value = Controls("TextBox" & iCounter).Text
      If sTag <> "False" And sTag <> "" Then
         ActiveSheet.Hyperlinks.Add _
            Anchor:=Cells(1, iCounter), _
            Address:=sTag
      End If
   Next iCounter
   Unload Me
End Sub