Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Shapes Transparent?

Shapes Transparent?
Stephan
Hallo,
möchte in meinen Shapes die Hintergrundfarbe auf Transparent umstelle.
Habe jedoch trotz intensiver Recherche keine Lösung gefunden.
Wer kann mir bitte nachfolgenden Code(Auszug) umstellen, so das es gelingt?
If objWs.Name .Name Then
If objWs.Visible = xlSheetVisible Then
Set objShp = .Shapes.AddShape(msoShapeRectangle, 50#, lngTop, 150.25, 15.25)
With objShp
.Name = "Link_" & CStr(lngTop)
.Fill.ForeColor.SchemeColor = 8
.Line.ForeColor.SchemeColor = 9
.TextFrame.Characters.Text = objWs.Name
.TextFrame.HorizontalAlignment = xlHAlignCenter
.TextFrame.VerticalAlignment = xlVAlignCenter
.TextFrame.Characters.Font.ColorIndex = 4
Sheets("Page1").Hyperlinks.Add Anchor:=objShp,
Gruß
Steff
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
.Fill.Transparency = 1# o.T.
15.03.2010 19:37:52
Josef
Gruß Sepp

AW: .Fill.Transparency = 1# o.T.
15.03.2010 19:44:24
Stephan
Hallo Sepp,
ich Depp...diesen Auszug hatte ich auch schon, jedoch immer
mit 0, anstatt mit 1.
Herzlichen Dank
Steff
Anzeige
1 = 100% o.T.
15.03.2010 20:04:34
Josef
Gruß Sepp

;
Anzeige
Anzeige

Infobox / Tutorial

Shapes in Excel Transparent Gestalten


Schritt-für-Schritt-Anleitung

Um die Hintergrundfarbe von Shapes in Excel transparent zu gestalten, kannst Du den folgenden VBA-Code verwenden. Achte darauf, dass Du "1" für die Transparenz einstellst, um eine vollständige Transparenz zu erreichen.

If objWs.Name <> .Name Then
    If objWs.Visible = xlSheetVisible Then
        Set objShp = .Shapes.AddShape(msoShapeRectangle, 50#, lngTop, 150.25, 15.25)
        With objShp
            .Name = "Link_" & CStr(lngTop)
            .Fill.ForeColor.SchemeColor = 8 ' Farbe einstellen
            .Fill.Transparency = 1 ' Setze die Transparenz auf 100%
            .Line.ForeColor.SchemeColor = 9
            .TextFrame.Characters.Text = objWs.Name
            .TextFrame.HorizontalAlignment = xlHAlignCenter
            .TextFrame.VerticalAlignment = xlVAlignCenter
            .TextFrame.Characters.Font.ColorIndex = 4
            Sheets("Page1").Hyperlinks.Add Anchor:=objShp
        End With
    End If
End If

Mit diesem Code wird die Füllfarbe des Shapes auf transparent gesetzt, was es ermöglicht, den Hintergrund durchscheinen zu lassen.


Häufige Fehler und Lösungen

  • Fehler: Transparenz wird nicht angewendet

    • Lösung: Stelle sicher, dass Du die Fill.Transparency-Eigenschaft auf 1 setzt. Wenn Du 0 verwendest, bleibt die Füllfarbe sichtbar.
  • Fehler: Shape wird nicht sichtbar

    • Lösung: Überprüfe, ob das Shape hinter anderen Objekten liegt oder ob es außerhalb des sichtbaren Bereichs platziert wurde.

Alternative Methoden

Es gibt verschiedene Wege, um die Transparenz von Shapes in Excel zu steuern:

  1. Manuelle Einstellung über das Menü:

    • Wähle das Shape aus, gehe zu den Formformatierungsoptionen und suche die Transparenzeinstellungen für die Füllfarbe.
  2. Verwendung von Excel-Formeln:

    • In einigen Fällen kannst Du auch mit bedingten Formatierungen arbeiten, um die Sichtbarkeit von Shapes dynamisch zu ändern.
  3. VBA für mehrere Shapes:

    • Nutze Schleifen, um die Transparenz für mehrere Shapes gleichzeitig zu ändern.

Praktische Beispiele

  • Beispiel 1: Erstellen eines transparenten Rechtecks

    • Verwende den oben genannten VBA-Code, um ein Rechteck zu erstellen, das die Hintergrundfarbe des Arbeitsblatts zeigt.
  • Beispiel 2: Transparentes Shape für einen Grafiküberlagerung

    • Erstelle ein transparentes Shape, um Textinformationen über ein Diagramm anzuzeigen, ohne die Sichtbarkeit der Daten zu beeinträchtigen.

Tipps für Profis

  • Nutze VBA zur Automatisierung: Wenn Du regelmäßig Shapes mit Transparenz einfügst, erstelle ein Makro, das diese Aufgabe automatisiert.
  • Farbindex anpassen: Experimentiere mit ColorIndex, um verschiedene Farben und deren Transparenz zu kombinieren.
  • Testen der Sichtbarkeit: Überprüfe, wie unterschiedliche Transparenzgrade die Lesbarkeit von Text innerhalb des Shapes beeinflussen.

FAQ: Häufige Fragen

1. Wie kann ich die Schriftfarbe innerhalb eines transparenten Shapes ändern?
Du kannst die Schriftfarbe einfach mit der Font.Color-Eigenschaft innerhalb des TextFrames ändern. Achte darauf, dass die Transparenz des Shapes nicht die Lesbarkeit der Schriftfarbe beeinträchtigt.

2. Welche Excel-Version benötige ich für diese Funktionen?
Die beschriebenen VBA-Funktionen sind in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige