Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Leonie vom 14.06.2022, 09:07 Options

Objekte in Excel ein/ausblenden

Hallo Ihr Lieben,

ich habe eine Exceltabelle in der ich Objekte "Pfeile, Linien, Kreise usw." eingefügt haben.
Ich möchte die dabei diese je nach Bedingung, über ein Makro ein- oder ausblenden lassen.

Danke

Leonie

Antwort schreiben

Antwort 1 von Flupo vom 14.06.2022, 10:06 Options

Ich habe mal ein kleines Beispiel mit einer Ellipse:

    ActiveSheet.Shapes("Oval 1").Visible = False
    Selection.ShapeRange.IncrementLeft -180#
    Selection.ShapeRange.IncrementTop -11.25
    ActiveSheet.Shapes("Oval 1").Visible = True

Die Ellipse wird ausgeblendet, nach links und nach oben verschoben und dann wieder eingeblendet.

Wie die Bezeichnungen deiner Objekte lauten, bekommst du am leichtesten heraus, indem du mal ein Makro aufzeichnest, in dem du mit den Objekten etwas anstellst (z.B. verschieben).

Gruß Flupo

Antwort 2 von Leonie vom 14.06.2022, 10:19 Options

Danke für die schnelle und gute Antwort.

Hab das gleich ausprobiert und es funktioniert.
Vielen Dank

Antwort 3 von Beverly vom 14.06.2022, 10:24 Options

Hi Leonie,

versuche es mal nach diesem Prinzip:

Sub EinAusblenden()
    Dim shShape As Shape
    For Each shShape In ActiveSheet.Shapes
        If shShape.Type = 1 Or shShape.Type = 9 Then shShape.Visible = Not shShape.Visible
    Next shShape
End Sub

Bis später,
Karin

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken