Datei_079, Beispiel Kommentar mit Bild einfuegen

79. Kommentar mit Bild einfügen

Aufgabenstellung:

Für diese Beispieldatei war die Aufgabenstellung dass in der markierten Zelle ein Kommentarfeld erzeugt wird, in dem sich ein Bild befindet. In Beispiel 1 wird der Pfad, in dem sich das Bild befindet, in einer Zelle eingetragen und Beispiel 2 kann der Pfad in einem Dialogfenster ausgewählt werden.

Dieses Beispiel steht auch als Beispieldatei zum Download zur Verfügung.
In der Zipdatei befindet sich eine xls-Datei für Excel 2000 - 2003 und eine xlsm-Datei für Excel 2007.

Realisiert wurde das durch eine VBA-Lösung.

Beispiel 1: Beim Ausführen des Makros wird in der markierten Zelle ein Kommentar mit Bild eingefügt. Der Pfad ist fest vorgegeben und stammt in diesem Beispiel aus Zelle B3.

Der Code ist in ein StandardModul einzufügen

Option Explicit

Sub Kommentarbild_einfügen_Beispiel_1()
Dim Kommentar As Object
'Wenn kein Kommentar in der aktiven Zelle vorhanden, dann
If ActiveCell.Comment Is Nothing Then
    'Kommentar einfügen
    ActiveCell.AddComment
    'Den Text im Kommentarfeld löschen
    ActiveCell.Comment.Text Text:=""
    'Objektvariable erzeugen
    Set Kommentar = ActiveCell.Comment.Shape
    'Dem neuen Objekt das Bild zuweisen und in der Größe anpassen
    With Kommentar
        .Fill.UserPicture Range("B3")
        .Width = 100
        .Height = 100
    End With
End If
End Sub

Beispiel 2: Beim Ausführen des Makros wird in der markierten Zelle ein Kommentar mit Bild eingefügt. Der Pfad des Bildes kann in einem Dialogfenster ausgewählt werden.

Der Code ist in ein StandardModul einzufügen

Option Explicit

Sub Kommentarbild_einfügen_Beispiel_2()
Dim Kommentar As Object, Bild As Variant

'Dialogfenster zur Auswahl eines Bildes öffnen
Bild = Application.GetOpenFilename("Bilder (*.jpg; *.gif; *.bmp), *.jpg, *.gif, *.bmp", , "Kommentarbild einfügen...")

'Wenn kein Bild ausgewählt wurde, Prozedur beenden
If Bild = False Then Exit Sub

'Wenn kein Kommentar in der aktiven Zelle vorhanden, dann
If ActiveCell.Comment Is Nothing Then
    'Kommentar einfügen
    ActiveCell.AddComment
    'Den Text im Kommentarfeld löschen
    ActiveCell.Comment.Text Text:=""
    'Objektvariable erzeugen
    Set Kommentar = ActiveCell.Comment.Shape
    'Dem neuen Objekt das Bild zuweisen und in der Größe anpassen
    With Kommentar
        .Fill.UserPicture Bild
        .Width = 100
        .Height = 100
    End With
End If
End Sub

Dieses Beispiel wurde unter den in der Tabelle aufgeführten Versionen getestet.

	A	B	C	D	E
1
2		Excel - Version		Getestet
3
4		Excel 2007	12.0	a
5		Excel 2003	11.0	a
6		Excel 2002	10.0	a
7		Excel 2000	9.0	a
8		Excel 97	8.0
9
10		Anzahl der Downloads:
11
12		Dieses Beispiel wurde bereits x aufgerufen.
13		Dieses Beispiel wurde bereits x aufgerufen.
14

> Beispieldatei herunterladen <

Sollten beim Ausführen der Beispieldatei Fehler auftreten, bitte ich darum, mir eine Mail mit der Fehlerbeschreibung an fehler@excelbeispiele.de zu schicken.
Danke!

Möchten Sie www.excelbeispiele.de in Ihre Favoriten aufnehmen? Dann Klicken Sie hier.

Kontakt:

letzte Aktualisierung am 06.01.2008