Shapes referenzieren

Forumthread: Shapes referenzieren
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Shapes referenzieren

06.08.2004 19:31:44

Wolfgang

Hallo zusammen,
ich möchte Shapes innerhalb eines Blattes kopieren. Bisher kein Problem weil ich das Blatt jeweils aktiviert habe. Jetzt möchte ich kopieren ohne das Blatt zu aktivieren. Wie stelle ich das nur an?
Danke für jeden Tip.
Gruß
Wolfgang

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Shapes referenzieren

Ulf
AW: Shapes referenzieren

Wolfgang
AW: Shapes referenzieren

Ulf
AW: Shapes referenzieren

Wolfgang

AW: Shapes referenzieren

Ulf

Blattnamen angeben.
Ulf

AW: Shapes referenzieren

Wolfgang

Hallo Ulf,
hatte ich eigentlich gemacht. Hier mein alter Code:
ActiveSheet.Shapes("Tatze1").Select
Selection.Copy
Cells(w.Row, 1).Select
ActiveSheet.Paste
Selection.Name = "Tatze" & y + 3
Selection.OnAction = "Bilder.xls!Tatze" & y + 3 & "_BeiKlick"
Wie müßte der neue Code aussehen?

With Workbooks("Bilder.xls").Sheets("Katzen")
With .Shapes("Tatze1")
.Copy
.Cells(w.Row, 1) 'PasteAll geht hier nicht, wie geht es jetzt weiter?
Gruß
Wolfgang

AW: Shapes referenzieren

Ulf


Sub copy_picture()
Sheets("Master").Shapes("YourPicture").Copy
Sheets("Tabelle1").Paste
With Sheets("Tabelle1").Shapes("YourPicture")
.Top = [c10].Top
.Left = [c10].Left
End With
End Sub

Ulf

AW: Shapes referenzieren

Wolfgang

Hallo Ulf,
blicke auf den ersten Blick noch nicht durch. Da du ja meinen ersten Code gelesen hast bin ich natürlich sicher, dass mein Problem der Vergangenheit angehört.
Danke für prompte Erledigung.
Gruß
Wolfgang