Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Grafik einfügen ohne Select
#1
Hallo Zusammen,

wie kann man am besten beim untenstehenden Code das Select vermeiden:

Sheets("Hilfstabelle").Select
ActiveSheet.Shapes.Range(Array("Grafik 2")).Select
Selection.Copy
Sheets("RG").Select
Range("A4").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 1.1871002776, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.8417352882, msoFalse, msoScaleFromTopLeft


Grüße

Semi
Antworten Top
#2
Hallo,

versuche es mal so:

Code:
Sheets("Hilfstabelle").Shapes.Range(Array("Grafik 2")).Copy
   With Sheets("RG").Range("A4")
       .Paste
       .ShapeRange.ScaleWidth 1.1871002776, msoFalse, msoScaleFromTopLeft
       .ShapeRange.ScaleHeight 0.8417352882, msoFalse, msoScaleFromTopLeft
   End With
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antworten Top
#3
Hallöchen,

oder so:

Code:
Sub test()
Sheets("Hilfstabelle").Shapes("Grafik 2").Copy
   With Sheets("RG").Pictures.Paste
       .Top = Sheets("Hilfstabelle").Range("A4").Top
       .Left = Sheets("Hilfstabelle").Range("A4").Left
       .ShapeRange.ScaleWidth 1.1871002776, msoFalse, msoScaleFromTopLeft
       .ShapeRange.ScaleHeight 0.8417352882, msoFalse, msoScaleFromTopLeft
   End With
End Sub
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#4
Hallöchen,

zum Positionieren der Grafik ist bei .Top und .Left der Bezug auf die "Hilfstabelle" falsch, hier müsste auch "RG" rein.
So ein Fehler hätte auch vermieden werden können, wenn man die "Eltern" (.Parent) verwendet:

.Top = .Parent.Range("A4").Top
.Left = .Parent.Range("A4").Left
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#5
Code:
Sub M_snb()
    Sheet1.Shapes(1).CopyPicture
    
    With Sheet2
       .Paste .Cells(4, 4)
       .Shapes(1).ScaleWidth 1.1871002776, 0
       .Shapes(1).ScaleHeight 0.8417352882, 0
    End With
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste