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

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

[[20040401144900]]: #score: 6703; @digest: c845a8a87795f4239ad733a63e61c1b3; @id: 5961; @mdate: 2004-04-01T07:20:16Z; @size: 2592; @type: text/plain; #keywords: windows2000orxp (7815), 択su (6506), myrange (6385), 楕円 (5929), 円1 (4243), visible (4076), シェ (3161), トシ (3051), ェイ (2977), oval (2690), shaperange (2651), イプ (2206), 円2 (1612), 動2 (1587), ン: (1569), 円3 (1479), shapes (1323), 動化 (1261), ・削 (1254), ク3 (1238), オー (1154), selection (1144), cancel (1132), sample (966), ドウ (942), ・そ (902), ウィ (800), ィン (799), select (733), beforedoubleclick (722), line (693), activesheet (689); 『オートシェイプの自動貼り付け・削除』（とも）
はじめまして、いろんなHPを見て回っていてもあまり取り上げられていないオートシェイプのことなのですが・・・その1・その2・その3 という、3つの項目があるときにその文字の上に丸をつけて選択の意思を表示させたいのですが オートシェイプであれば毎回手動による方法しかないのかなと疑問に思いこれを自動化、もしくは半自動化できないものかと思い質問させていただきたいと思います。よろしくお願いします。 [エクセルのバージョン:Excel2000][OSのバージョン:Windows2000orXP] ---- その1・その2・その3 （←セルですよね? C5 E5 G5 とする）の上に「だ円」を配置して、図形の名前をその1 、その2 、その3 とする。（名前ボックスで定義する。） 1.ALT+F11キーで、VBEを起動 2.プロジェクトウィンドウのSheet1 を Wクリック 3.中央の真っ白なウィンドウ（コードウィンドウ）に以下のコードをコピペ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Select Case Target.Address(False, False) Case "C5" Call sample("その1") Cancel = True Case "E5" Call sample("その2") Cancel = True Case "G5" Call sample("その3") Cancel = True End Select End Sub Sub sample(ByVal shp As String) With ActiveSheet.Shapes(shp) If .Visible = False Then .Visible = True Else .Visible = False End If End With End Sub ダブルクリックで、図形を表示・非表示します。 (INA) ---- INAさんの方法と似ていますが, オートシェイプをクリックさせて線の表示非表示を切り替えます。 オートシェイプを配置 オートシェイプを右クリック、「マクロの登録」を選択マクロの登録ダイアログボックスで「新規」を選択 Sub 楕円1_Click() End Sub のように表示されるので、次のように編集します。 Sub 楕円1_Click() Dim MYRANGE As Range Set MYRANGE = Selection ActiveSheet.Shapes("Oval 1").Select With Selection.ShapeRange.Line .Visible = Not .Visible End With MYRANGE.Select End Sub 同様に2つめ、みっつめのオートシェイプについても下記のようにマクロを登録します。 Sub 楕円2_Click() Dim MYRANGE As Range Set MYRANGE = Selection ActiveSheet.Shapes("Oval 2").Select With Selection.ShapeRange.Line .Visible = Not .Visible End With MYRANGE.Select End Sub Sub 楕円3_Click() Dim MYRANGE As Range Set MYRANGE = Selection ActiveSheet.Shapes("Oval 3").Select With Selection.ShapeRange.Line .Visible = Not .Visible End With MYRANGE.Select End Sub (KAMIYA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200404/20040401144900.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ