Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Problem mit Grafiken

VBA Problem mit Grafiken
11.07.2006 12:58:41
Raoul
Hi,
ich lasse per Knopfdruck eine Grafik kopieren und an einer bestimmten Stelle wieder einfügen. Der Quelltext sieht dabei so aus:
ActiveSheet.Shapes.Range(Array("Line 14", "AutoShape 11")).Select
Selection.Copy
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 157.5
Selection.ShapeRange.IncrementTop -12#
Das Problem ist, dass ich die Grafik nicht immer benötige. Wie kann ich genau diese Grafik, die ja leider bei jedem Kopiervorgang einen anderen "Namen" bekommt wieder per Knopfdruck löschen? Die Koordinaten sind ja vorhanden...
Danke Duke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Problem mit Grafiken
11.07.2006 21:17:54
Herbert
hallo Duke,


Sub kopieren()
With ActiveSheet
      .Shapes.Range(Array("Line 1""Rectangle 1")).Select
       With Selection
              .Copy
              .Left = 257
              .Top = 122
       End With
      .Paste
End With
Application.SendKeys "{esc}"
End Sub
Sub löschen_1()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    'MsgBox shp.Name
    'MsgBox shp.Top
     If shp.Left = 256.5 Or shp.Top = 88.5 Then
        shp.Delete
     End If
Next
End Sub

     gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige