close
See example with worksheet Change event proc: cjoint.com/?erkFfzkxwN
HTH
--
AP
'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect( _
Target, _
Union( _
Range(quot;Center_Xquot;), _
Range(quot;Center_Yquot;), _
Range(quot;Radiusquot;) _
) _
) Is Nothing Then Exit Sub
With Me.Shapes(quot;Circle1quot;)
.Top = Range(quot;Center_Yquot;).Value - Range(quot;Radiusquot;).Value
.Left = Range(quot;Center_Xquot;).Value - Range(quot;Radiusquot;).Value
.Height = 2 * Range(quot;Radiusquot;).Value
.Width = .Height
End With
End Sub
'---------------
quot;man57quot; gt; a écrit dans le message de
...
gt;
全站熱搜
留言列表
