|
userformを表示したときに、sheet上に楕円がある場合、
userformのcheckboxにチェックを入れたいのですが、
うまくいきません。
コードは、
Sub フォーム表示()
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType=msoShapeOval Then
If Shape.Name="Oval 1" Then
UserForm1.CheckBox1=True
ElseIf Shape.Name="Oval 2" Then
UserForm1.CheckBox2=True
ElseIf Shape.Name="Oval 3" Then
UserForm1.CheckBox3=True
ElseIf Shape.Name="Oval 4" Then
UserForm1.CheckBox4=True
ElseIf Shape.Name="Oval 5" Then
UserForm1.CheckBox5=True
End If
End If
Next
UserForm1.Show
End Sub
です。
これを実行すると、『オブジェクトが必要です。』というエラーになってしまいます。
どなたかご教授お願いします。
|
|