[[20090630113858]]　『○を付ける』（QQ）　ページの最後に飛ぶ

『○を付ける』（QQ）

 マクロについて教えてださい。

 例えばUserFormのOptionButtonを使って
 任意のセルに○(塗りつぶしなし)の図形を作成することって出来るんですか？
 ○は小さい○です。

      A
 1   無
 2　 有

 OptionButtonで有を選択したら、A2のセルの有に○が付けたいのです。
 そういったことって可能ですか？
 教えてください。

 こちらのご質問と似ている様に思います。
[[20080129130423]]『オプションボタン選択で図形貼り付け』（fuwari）

 (HANA)

 表示させる場所を変えるにはどこを変更すればよいのでしょうか？

 (QQ)

 どのコードの話ですか？

 コード内でセル番地が有ればそこを変更してみられるのが
 良いんじゃないかと思いますが？

 (HANA)

 >HANAさん

 セルの場所を変更することは出来ました。
 図形の位置を変更する方法がちょっとまだ解明できてません。

 (QQ)

 >HANAさん
 何とか位置の変更出来ました。
 ありがとうございます。

 (QQ)

 指定した範囲のオブジェクト（図形）を削除することって可能ですか？
 教えてください。

 (QQ)

 こちらの過去ログの様な事ですか？
[[20080728110751]]『選択セル内の図形のみ削除』（ぶんコ）

 (HANA)

 リンク先のσ(^-^;)のコードのサブルーチンがまさにそれなんですけどね。。。＾＾；(ROUGE)

 Sub objdelete()
    Dim dro As Object
    Dim R As Range
    Dim RR As Range
    On Error Resume Next
    Set R = Selection
    If Err.Number = 0 Then
       For Each dro In ActiveSheet.DrawingObjects
          Set RR = Range(dro.TopLeftCell, dro.BottomRightCell)
          If Not Intersect(RR, R) Is Nothing Then
             dro.Delete
             End If
          Set RR = Nothing
          Next
       End If
    Set R = Nothing
 End Sub

 セル番はどこに組み込めばいいのでしょうか？

 （QQ)

 過去ログでは
 「選択セル」だったので
 Set R = Selection
         ~~~~~~~~~選択範囲
 に成っていると思います。

 (HANA)

 >HANAさん
 ありがとうございます。
 私も気づきました。

 ROUGEさんもありがとうございました。

 (QQ)

コメント返信：

[ 一覧(最新更新順) ]

[[20090630113858]] 『○を付ける』（QQ） ページの最後に飛ぶ

[[20090630113858]]　『○を付ける』（QQ）　ページの最後に飛ぶ