[[20090630113858]] 『○を付ける』(QQ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『○を付ける』(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)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.