エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20090519135803]]: #score: 6703; @digest: d22e494bfd1a765ed1de8b5c3e5887dd; @id: 43482; @mdate: 2009-05-19T23:54:32Z; @size: 5734; @type: text/plain; #keywords: ジデ (33189), シェ (15356), ェイ (14458), ジコ (13702), 集出 (11861), イプ (10714), プb (10222), プa (8691), 楕円 (5929), セレ (3818), イメ (3487), ロッ (3372), 択出 (3327), トロ (3249), ルツ (2985), 保護 (2503), ダミ (2458), ルボ (2376), メー (2296), ミー (2072), 編集 (1900), デザ (1560), ック (1556), レク (1514), ロー (1507), コン (1504), ザイ (1441), 右ク (1342), 選択 (1289), プを (1234), ール (1198), リッ (1061); 『シェイプを選択出来なくする』（とんざ）
シートに複数のシェイプがありますが、その中の一つのシェイプをロック（位置、大きさその他の情報を変更不可）して、その他の物を変更可能にしたいのですが、どうも出来そうにありませんので、（出来る方法があれば教えて欲しいです。）そのロックしたいシェイプのみ選択出来なくしてはどうかと思ってます。指定するシェイプの名前はA1セルにでも入れておいてと思うのですが可能でしょうか? ---- オートシェイプの書式設定、保護タブのロックにチェックが入っていれば、シート保護したときに（オブジェクトの編集を許可していなければ）編集ができなくなります。 (ROUGE) ---- 特定のシェイプのみロックして、他のシェイプは編集したいのです。(とんざ) 特定のシェイプにマクロ（ダミー）を登録してみましたら、編集出来なくなりました。ただ右クリックすると編集可能です。右クリック不可にしてみましたが、 Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As _ Excel.Range, Cancel As Boolean) Cancel = True End Sub これはシェイプの編集には無効で右クリックメニューが表示されます。ただ殆どロック状態とも言えますので、これでいいかも?と思って来ました。 ---- A1セルに入っているシェイプがセレクトされると、非セレクトにする（A1セルを選択）(とんざ) 事は出来るでしょうか? 複数シェイプがシートに存在して、シェイプAがロックしたい物とした時シェイプBが選択されている状態から、シェイプAを選択する場合が考えられますが、その時にワークシートイベントが働かないので無理ですか? ---- ROUGEさんが書いて居られる方法は正しく試されましたか? シェイプAと、シェイプBがある時に 1.シェイプBのオートシェイプの書式設定を開き保護タブでロックのチェックを外します。 2.シェイプAのロックのチェックはつけておきます。 3.エクセルのメニューから、シートの保護をします。 4.シェイプBは選択出来なくなります。その方法が駄目なら、まず駄目な理由を書きましょう。保護は掛けたくないとか A1セルに入っているシェイプをセレクトすると、A1セルを選択したいとか。 (HANA) ---- すみません。更にシェイプを追加したい場合もあるので、(とんざ) 保護をかけたくないのでした。 ---- ＞特定のシェイプにマクロ（ダミー）を登録してみましたら、編集出来なく＞なりました。ただ右クリックすると編集可能です。＞右クリック不可にしてみましたが、＞・・・（中略）・・・＞ただ殆どロック状態とも言えますので、これでいいかも?と思って来ました。と言う事であれば、ダミーマクロではなく「A1セルを選択する」と言うマクロをそのシェイプに登録するのではどうでしょう? (HANA) ---- 方法1 ロックしたいという対象図形を「コントロールツールボックス」にあるイメージコントロールの中に埋め込んでしまう方法は? 例新規ブックの標準モジュールに '============================================================= Sub 再現1() With ActiveSheet .Ovals.Add [i3:k11].Left, [i3:k11].Top, [i3:k11].Width, [i3:k11].Height With .OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _ DisplayAsIcon:=False, Left:=[a3:a11].Left, Top:=[a3:c11].Top, Width:=[a3:c11].Width, Height:= _ [a3:c11].Height) .Object.BorderStyle = 0 End With End With End Sub 適当なシートで上記再現1を実行してください。セルi3:k11の範囲に楕円が作成されます。この楕円をセルA3:C3に作成されたイメージコントロールに埋め込むことを考えます。・まず、コントロールツールボックスのデザインモードをONにしてイメ-ジコントロール操作可能にしてください。・次に楕円を選択してください。選択した状態でShiftキーを押しながら、「編集」---「図のコピー」とクリックします。・図のコピーダイアログが表示されますから、外観画面形式ビットマップと選択してOKボタンをクリックしてください。・イメージコントロールを選択して下さい。選択した状態でコントロールツールボックスのプロパティボタンをクリックしてください。・プロパティダイアログが表示されます。その中にPictureというプロパティがありますから、選択して下さい。選択した状態で Ctrl+Vを押してください。手順どおりやれば、イメージコントロールに楕円が表示されます。・最後にコントロールツールボックスにて、デザインモードを終了してください。これでイメージコントロールに埋め込まれた図形は簡単には操作できないと思います。尚、これらをVBAで行うならば、APIになります。方法2 VBAで監視して、シェイプを選択したら、セルを選択するという処理をループ内で行う上記のとおりのアルゴリズムを作成すればよいのですが、ちょっと動作が不安定です。興味があれば、コードはアップします。方法3 結構難しい仕様なので仕様を見直す。 ichinose ---- HANAさん Sub test() Range("a1").Select End Sub をシェイプに登録してみましたが、やはり右クリック出来て編集出来てしまうのは同じでした。 ichinoseさん確かに絵は編集出来ませんが、イメージを選択して位置を変更出来てしまうのは、他の方法と同様です。やはりロックしてシートの保護の必要があります。最初からどう使うのかを書くべきでしたイメージデータtifファイルをシートに読み込んでこのイメージデータ上にシェイプを追加して文字やら線やらを追加していって、重ねたデータをプリントアウトする作業を行います。イメージデータの中で消したい部分は白のシェイプを置き・・・つまり最初のイメージデータtifは、一番下の階層にあって、一度配置したら位置が変わったり大きさを変えたりしないので、または、シェイプを置いた後にイメージデータの位置が変わるととんでもないことになる為にロックしたいのです。（イメージデータが大きい為にどうしてもこれをクリックして間違って位置を変えてしまいやすい。）追加するシェイプの種類は限られているので、既にマクロで組んでますので。今思ったのは、恒にシートは保護状態にしておいて、シェイプを追加する時に保護解除 → シェイプ追加 → 保護とすれば良いですね。（先に教えて頂いた、イメージデータはロック、他のシェイプはロック解除）大変手間をかけさせてしまい済みませんです。（とんざ） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200905/20090519135803.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ