Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen mit Bilder - Alternativtext einbinden

Zellen mit Bilder - Alternativtext einbinden
19.06.2019 10:39:34
David
Hallo zusammen,
mittels VBA für Excel, versuche ich eine Schleife zu erstellen, die einem Bild in einer bestimmten Zelle einen Arternativtext zuweist.
Leider habe ich dabei noch ein kleines Problem. Ich hoffe, ich kann es ausreichend für die Problembehandlung gut beschreiben.
Also - siehe Beispiel-Code:

'Schleife Bild 1
For Each Bild In ActiveSheet.Shapes
zeile = Bild.TopLeftCell.Row
If Bild.Type = 13 And ActiveSheet.Cells(zeile, 23).Value = "A" Then
Bild.AlternativeText = ActiveSheet.Cells(zeile, 12) & "_" & ActiveSheet.Cells(zeile, _
_
4) & "_A"
End If
Next
'Schleife Bild 2
For Each Bild In ActiveSheet.Shapes
zeile = Bild.TopLeftCell.Row
If Bild.Type = 13 And ActiveSheet.Cells(zeile, 24).Value = "B" Then
Bild.AlternativeText = ActiveSheet.Cells(zeile, 12) & "_" & ActiveSheet.Cells(zeile, _
_
4) & "_B"
End If
Next
'Schleife Bild 3
For Each Bild In ActiveSheet.Shapes
zeile = Bild.TopLeftCell.Row
If Bild.Type = 13 And ActiveSheet.Cells(zeile, 25).Value = "C" Then
Bild.AlternativeText = ActiveSheet.Cells(zeile, 12) & "_" & ActiveSheet.Cells(zeile, _
_
4) & "_C"
End If
Next

In jeder Zeile befinden sich ein paar Bilder, die in einer Zelle gespeichert wurden.
Ebenfalls steht dort in der jeweiligen Zelle ebenfalls noch ein Buchstabe A bis C.
Ich möchte gerne nacheinander prüfen, ob in den Zeilen 23 bis 24 ein Bild vorhanden ist.
Wenn ja, soll der Alternativtext dieses Bildes sich aus den Werten in der jeweiligen Zeile aus Spalte 4 und 12 zusammensetzen
zuzüglich die Bezeichnung A bis C. Funktioniert bei mir auch. Allerdings steht bei mir in jedem Alternativtext der Buchstabe C.
Ich denke, weil die letzte Schleife alles vorherige überschreibt. Wie kann ich das Problem lösen?
VG, David

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Bilder - Alternativtext einbinden
19.06.2019 10:45:55
SF
Hola,
verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Danke.
Gruß,
steve1da
Anzeige

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige