Transparenz von Bildern in Abhängigkeit von Zellwert

Hallo!

Ich suche nach einer Möglichkeit, Bilder in Abhängigkeit eines Zellwertes ein- und auszublenden.

Die Bilder sollen dabei alle übereinander liegen und wenn ich z.B. Bild A und B sehen möchte, aber C nicht, dann gibt es eben die dann gebe ich bei A und B ein "ja" in eine bestimmte Zelle und bei C eben ein "Nein".

Eine Möglichkeit ist sicherlich die Transparenz per Visual Basic für jedes Bild zu setzen. Da bekomme ich aber die Programmierung nicht hin. Bin aber auch für alternative Möglichkeiten offen.

In dem Beispiel sollte er das Gesicht und die Brille im Rahmen anzeigen. Setze ich einen Wert auf "Nein", sollte er dem entsprechend genau das Bild nicht anzeigen, oder auf Transparent setzen.

https://www.herber.de/bbs/user/167550.xlsx

Hat jemand eine Idee, oder den passenden VisualBasic Code?

Grüße
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim ber As Range Set ber = Application.Intersect(Range("B6:B8"), Target) If Not ber Is Nothing Then Shapes(Target.Offset(, -1)).Visible = Target.Value = "ja" End Sub

Hi
Transparenz hilft dir im konkreten Beispiel nicht viel, da die Bilder sich nicht überdecken, oder in dem Bereich liegen, der aus der transparenten Farbe besteht (das siehst du daran, dass du im Bild Rahmen die Rahmenlinien der Zellen sehen kannst, dh dieser Bereich ist sowieso Transparent.

du brauchst hier einfaches Ein- und Ausblenden, dafür ist die .Visible-Eigenschaft des Shapes zuständig.

du kannst beispielsweise diesen Code verwenden.
der Code funktioniert, wenn ab Zelle A6 in Spalte A die Namen der Bilder stehen und in Spalte B daneben "ja" für sichtbar jeder andere Text für unsichtbar.
das Makro ermittelt die Größe des Zellbereichs automatisch, so dass du den Code nicht ändern musst, wenn du weitere Bilder hinzufügst.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range

Dim Zelle As Range

Set rng = Range("A6").CurrentRegion 'relevanter Zellbereich



If Not Intersect(Target, rng.Columns(2)) Is Nothing Then

    For Each Zelle In Intersect(Target, rng.Columns(2)).Cells

        ActiveSheet.Shapes(Zelle.Offset(0, -1)).Visible = (Zelle.Value = "ja")

    Next

End If

End Sub

Gruß Daniel

Private Sub Worksheet_Change(ByVal Target As Range) Dim ber As Range Dim Formelbereich As Range If Target.Count > 1 Then Exit Sub 'zur Sicherheit, nicht mehr als 1 Zelle auf einmal ändern Set Formelbereich = Range("B6:B8") Set ber = Application.Intersect(Range("Inputbereich"), Target) If Not ber Is Nothing Then For Each Zelle In Formelbereich Shapes(Zelle.Offset(, -1)).Visible = Zelle.Value = "ja" Next End If End Sub

Beliebteste Forumthreads (12 Monate)

Transparenz von Bildern in Abhängigkeit von Zellwert

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Transparenz von Bildern in Abhängigkeit von Zellwert

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread