Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen mit Bilder - Alternativtext einbinden
 19.06.2019 09:48:14 David Simon
NotSolved
19.06.2019 18:16:06 Gast73404
NotSolved

Ansicht des Beitrags:
Von:
David Simon		 Datum:
19.06.2019 09:48:14		 Views:
950		 Rating:
     
Antwort:
  Ja
Thema:
Zellen mit Bilder - Alternativtext einbinden

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen mit Bilder - Alternativtext einbinden
 19.06.2019 09:48:14 David Simon
NotSolved
19.06.2019 18:16:06 Gast73404
NotSolved