Makro mit Bild Teil 2
Claus
Dazu habe ich folgendes Makro als Antwort bekommen:
Sub Makro1()
Dim strSuche$, rngFind As Range, strPathBild$, strSucheDatei$
Const strPath$ = "X:\Akquisistion_Strom\"
strSuche = "a"
' InputBox("Bitte Suchbegriff eingeben!", "Suche")
strSucheDatei = "Bild"
If StrPtr(strSuche) = 0 Then Exit Sub
With Tabelle1
.Image1.Visible = False
Set rngFind = .UsedRange.Find(What:=strSuche, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not rngFind Is Nothing Then
strPathBild = strPath & strSucheDatei & ".jpg"
If Dir(strPathBild, vbNormal) "" Then
With .Image1
.Picture = LoadPicture(strPathBild)
.Left = rngFind.Left
.Top = rngFind.Offset(-1, 0).Top
.Visible = True
End With
Else
.Image1.Picture = LoadPicture("")
MsgBox "'" & strPathBild & "'" & vbCr & "Datei wurde nicht gefunden!", _
vbExclamation
End If
Else
MsgBox "'" & strSucheDatei & "' wurde nicht gefunden!", vbExclamation
End If
End With
End Sub
Ich hätte noch eine Frage zum oben funktionierenden Makro. Bestehe die Möglichkeit die Positionierung des Bildes zu bestimmen. Wie es aussieht wird das Bild von der Vertikalen Ausrichtung oben und Horizontalen Ausrichtung Link in der Zeile eingefügt. Ich würde es aber lieber wie folgt haben: Vertikal: Unten. Horizontal Rechtsbündig. Ich denke es hängt an der o.g. Eingabe Top und Left. Ersetze ich diese aber mit Bottom und Right funktioniert es leider nicht. Interessieren würde mich auch wie es aussehen würde wenn ich Mittig auswählen würde. Somit hätte ich alle Varianten. :)
Vielen Dank im Voraus.
Viele Grüße
Claus
Anzeige