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