セルの隅にAddshape

Question

こんにちは、私は（下左）、セルコーナーD12に動的に図形を追加する必要が は、ここでは、この結果に私のコード

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) 

です：

、ここでは私がしたい結果ですそれは

Answer 1

私が目だと思い、私が作成した後に円をreshappingい

を持っていますそれを追加するときにもシェイプの半径を考慮する必要があるかもしれません。

コード：（今後の参考のため）また

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 

、あなたが他のオブジェクトの操作のためRange("A1").WidthとRange("A1").Height性質を利用することができます:)

HTH;）