Hallo in die Runde,
ich habe ein Makro das eine Grafik von Tabelle2 auf Tabelle1 kopiert. Die Größe und Lage passen, aber ich bekomme es nicht in den Hintergrund gelegt. Ich möchte im Vordergrund gerne Texte und Comboboxen "verbauen" und das Bild soll nur eine optische Aufwertung erwirken.
Wie kann ich das Makro dahingehend ergänzen evtl. noch mit der Möglichkeit, den Grad der Transparenz einzustellen?
Hier der Code:
Sub Makro_PE_Hintergrundbild()
' Grafik 1 aus dem Pool (Tabelle2) auf der Seite PE_A platzieren
Dim WSh As Worksheet, WsPool As Worksheet
Dim oshp As Shape
'vom Pool
Set WsPool = Sheets("Tabelle2")
'in Startseite
Set WSh = Sheets("Tabelle1")
WsPool.Shapes("Grafik 1").Copy
WSh.Paste Range("K1")
'das "eingefügte" hat den höchsten Wert in der Auflistung - daher
With WSh
Set oshp = .Shapes(.Shapes.Count)
With oshp
.Name = "Smart_PE_Background"
.ScaleHeight 1, msoFalse
.ScaleWidth 1, msoFalse
End With
End With
End Sub
|