Thema Datum  Von Nutzer Rating
Antwort
Rot Wie Makro ergänzen, damit die Grafik im Hintergrund liegt?
09.02.2018 13:29:58 Melissa
NotSolved
11.02.2018 19:48:00 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Melissa
Datum:
09.02.2018 13:29:58
Views:
45
Rating: Antwort:
  Ja
Thema:
Wie Makro ergänzen, damit die Grafik im Hintergrund liegt?
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Wie Makro ergänzen, damit die Grafik im Hintergrund liegt?
09.02.2018 13:29:58 Melissa
NotSolved
11.02.2018 19:48:00 xlKing
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar