[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『○を付ける』(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.