addShape in Zelle Ecke

Question

Hallo ich brauche Form hinzufügen dynamisch Zellenecke D12 (links, unten) hier ist mein Code

Set textRectangle = ActiveSheet.Shapes.AddShape(msoShapeOval, Range("D13").Left, Range("D13").Top, 20, 20) 

textRectangle.name = "test shape" 
' add your text 
textRectangle.TextFrame.Characters.Text = "Your" 

' fill the shape with the rgb color of your choice 
textRectangle.Fill.ForeColor.RGB = RGB(220, 105, 0) 

mit diesem Ergebnis:

und hier ist das Ergebnis, das ich zu wollen haben

ich den Kreis am reshapping nach dem Erstellen es

Answer 1

ich denke, th Vielleicht müssen Sie auch den Radius der Form berücksichtigen, während Sie ihn hinzufügen.

Code:

Sub add_shape() 

    Dim textRectangle As Shape 
    Dim radius As Integer 
    radius = 20 
    Set textRectangle = ActiveSheet.Shapes.AddShape(msoShapeOval, (Range("D13").Left - radius/2), _ 
         Range("D13").Top - radius/2, radius, radius) 

End Sub 

auch (für die Zukunft), können Sie die Verwendung von Range("A1").Width und Range("A1").Height Eigenschaften für andere Objektmanipulation :)

HTH machen;)