Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


73507 / 76732 ←次へ | 前へ→

【7700】Re:前回の続き
回答  INA  - 03/9/12(金) 9:46 -

引用なし
パスワード
   これでいかがでしょう?

Private Sub OptionButton1_Click()
Dim objOval As Shape
Dim x As Shape

For Each x In ActiveSheet.Shapes
  If x.Name = "いいい" Then
    x.Delete
  End If
Next x
  
  If objOval Is Nothing Then
    ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 10, 10).Select
    Selection.Name = "あああ"
    ActiveSheet.Shapes("あああ").Fill.Visible = msoFalse
  End If
  
Set objOval = Nothing

End Sub


Private Sub OptionButton2_Click()
Dim objOval As Shape
Dim x As Shape

For Each x In ActiveSheet.Shapes
  If x.Name = "あああ" Then
    x.Delete
  End If
Next x

  If objOval Is Nothing Then
    ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, 10, 10).Select
    Selection.Name = "いいい"
    ActiveSheet.Shapes("いいい").Fill.Visible = msoFalse
  End If

Set objOval = Nothing

End Sub

0 hits

【7578】前回の続き 鼻毛カッター 03/9/8(月) 22:34 質問
【7579】Re:前回の続き 鼻毛カッター 03/9/8(月) 22:39 質問
【7581】Re:前回の続き INA 03/9/8(月) 23:26 回答
【7586】Re:前回の続き INA 03/9/9(火) 8:39 回答
【7636】Re:前回の続き 鼻毛カッター 03/9/10(水) 21:01 質問
【7648】Re:前回の続き INA 03/9/11(木) 11:11 回答
【7688】Re:前回の続き 鼻毛カッター 03/9/11(木) 20:52 質問
【7692】Re:前回の続き INA 03/9/11(木) 22:23 回答
【7693】Re:前回の続き 鼻毛カッター 03/9/11(木) 23:11 質問
【7700】Re:前回の続き INA 03/9/12(金) 9:46 回答
【7739】Re:前回の続き 鼻毛カッター 03/9/16(火) 16:59 お礼

73507 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free