Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Picture - Eigenschaften

Forumthread: Picture - Eigenschaften

Picture - Eigenschaften
Heinrich
Hallo Forum,
seit einiger Zeit versuche ich Bilder (ClipArts), welche ich in ein Tabellenblatt eingefügt habe, selektiv über die Pictures () - Eigenschaft in VBA anzusteuern.
Leider ist es mir nur gelungen über
... Pictures () = False oder "True"
sämtliche, d.h. alle Bilder gleichzeitig anzusprechen.
Die konkrete Umbenennung meiner Bilder, welche intern als "Objekt 1" etc.
von Excel benannt werden, mag hingegen nicht gelingen.
If Range("F17").Value = "Test" Then
ActiveSheet.Pictures(1).Visible = False
Else
ActiveSheet.Pictures(1).Visible = True
End If
Wer kennt sich aus ?
Danke !
Heinrich
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Picture - Eigenschaften
Ramses
Hallo
Ungetestet, sollte aber gehen:
activesheet.shapes("Objekt 1").visible = true
Gruss Rainer
AW: Picture - Eigenschaften
Heinrich
Super Rainer,
das klappt auf Anhieb ! Jetzt suche ich noch eine Möglichkeit, daß
nicht extra ein Makro aktiviert werden muss, um diese Abfrage auszuführen.
Die Enter-Taste reicht nicht aus. Zwar ist die betreffende Bedingung erfüllt,
doch muss das Makro erst aktiviert werden.
Doch bis hierher: Vielen Dank, es hat mir bereits sehr geholfen !
Heinrich
Anzeige
AW: Picture - Eigenschaften
Ramses
Hallo
das Makro gehört in das Klassenmodul der definierten Tabelle wo es funktionieren soll
Option Explicit

Private Sub Worksheet_Calculate()
If Range("A1") = "Test" Then
ActiveSheet.Shapes("Bild 2").Visible = False
Else
ActiveSheet.Shapes("Bild 2").Visible = True
End If
End Sub

Gruss Rainer
Anzeige
AW: Picture - Eigenschaften
26.04.2004 21:02:47
Heinrich
Werde es morgen früh gleich testen. Du hast mir sehr geholfen. Habe gute Laune.
Danke Rainer !!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige