（２）モデルの大きさの変更
 
　モデルの直径が
　　８０→１００
に変わりました。
さらにボタンを押して下さい。

　diamは円の直径寸法です。これをＥＸＣＥＬのアクティブなセルの
値に変更し、画面を再描画しています。

Private Sub CommandButton2_Click()
rg = rgw.DimensionSetValue("diam",Val(Excel.ActiveCell))
rg = rgw.ModelRegenerate
rg = rgw.WindowRepaint
End Sub

 　
TOPへ戻る