Wie fügen Sie eine Form nach der bestehenden Formen in Excel-Blatt mit VBA?

Möchte ich kopieren einer Form und fügen Sie ein Blatt bereits mit einer oder mehr Formen. Ich habe versucht mit der folgenden einfachen code :

myShape.Select
Selection.Copy
ActiveWorkbook.Sheets(mySheet).Paste

Aber es fügt es über den vorhandenen Shapes auf dem Blatt ...

Gibt es eine Lösung um zu erkennen, das Ende der vorhandenen Formen, oder um die paste direkt nach ?
Thx

InformationsquelleAutor M3HD1 | 2012-04-20

  1. 6

    Ist es das, was Sie versuchen?

    Sub Sample()
    Dim myShape As Shape

    Set myShape = ActiveSheet.Shapes("Rectangle 1")

    myShape.Copy

    ActiveSheet.Paste

    With Selection
        .Top = myShape.Height + 10
        .Left = myShape.Left
    End With
End Sub

    Wenn es mehr Formen, dann haben Sie, um eine Schleife durch alle shapes und dann finden Sie die Letzte Form und die Form .Top und .Height berücksichtigt.

    Diesem Beispiel sehen

    Option Explicit

Sub Sample()
    Dim myShape As Shape, shp As Shape
    Dim sHeight As Double, sTopp As Double

    For Each shp In ActiveSheet.Shapes
        If shp.Top > sTopp Then
            sTopp = shp.Top
            sHeight = shp.Height
        End If
    Next

    Set myShape = ActiveSheet.Shapes("Rectangle 1")

    myShape.Copy

    ActiveSheet.Paste

    With Selection
        .Top = sTopp + sHeight + 10
        .Left = myShape.Left
    End With
End Sub
    Danke, genau das, was ich wollte : Erkennen Sie die Form, Höhe, Breite ... also ich kann seine position auf dem Blatt
    Gute Antwort, Sid.

    InformationsquelleAutor Siddharth Rout

Schreibe einen Kommentar