|
▼さる さん:
>userformにcheckbox1〜3とcommandbutton1があります。
>checkbox1〜3をonにしてcommandbutton1をクリックすると、
>onになっているcheckbox1〜3に対応した楕円(3種類)を作成。
>既にsheet上に楕円が作成されている場合、userformを表示したときに楕円に対応したcheckboxをonにしたいのですが、楕円が有るか無いかの判定の仕方がわかりません。
>
>要するに、
>commandbutton1をクリックしたとき、
>checkbox1がonなら楕円1を作成。
>checkbox2がonなら楕円2を作成。
>checkbox3がonなら楕円3を作成。
>
>userformを表示したとき、
>楕円1が作成されている場合、checkbox1をonにする。
>楕円2が作成されている場合、checkbox2をonにする。
>楕円3が作成されている場合、checkbox3をonにする。
>ということです。
>
>どなたかご教授お願いします。
こんにちは。
こんなふうにでは どうでしょうか?
'=====================================
Sub test()
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = msoShapeOval Then
MsgBox shp.Name & "楕円"
End If
Next
End Sub
|
|