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

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

[[20090419101025]]: #score: 6703; @digest: 04991b9057701a2e192da8cb4d1917ee; @id: 43026; @mdate: 2009-04-19T02:16:07Z; @size: 1215; @type: text/plain; #keywords: chisa (6055), シェ (3161), トシ (3051), ェイ (2977), が23 (2319), イプ (2205), プだ (1859), け削 (1839), オー (1154), 230 (1088), みち (909), るオ (880), 了" (791), バラ (760), かみ (748), チリ (673), プの (613), 削除 (565), ラバ (513), すm (456), shapes (441), 置が (437), top (389), activesheet (344), ッチ (315), のオ (310), 位置 (307), バッ (269), ート (268), の位 (266), ロパ (263), delete (240); 『オートシェイプのTopのみ指定して削除』（CHISA）
またオートシェイプのマクロでつきづきました(;;) 助けてください。お願いしますm(__)m 例えば、10個あるオートシェイプのうち Topの位置が230のオートシェイプだけ削除したいんです。 LeftやWidthはバラバラで、該当するオートシェイプの数もないときもあるし、複数あるときもあります。そんなことってできますか? よろしくお願いしますm(__)m (CHISA) ---- こんにちは。かみちゃんです。 > Topの位置が230のオートシェイプだけ削除したい Topプロパティの値が230のオートシェイプの名前を表示するには、以下のような感じになります。これで確認できるようであれば、 ' .Delete のコメントを外して実行すると、削除されると思います。 Sub Sample() Dim i As Long Dim shp As Shape For i = ActiveSheet.Shapes.Count To 1 Step -1 With ActiveSheet.Shapes(i) If .Top = 230 Then MsgBox .Name & "を削除します" ' .Delete End If End With Next MsgBox "終了" End Sub (かみちゃん) 2009-04-19 10:43 ---- かみちゃんさんこんにちわm(__)m かなりバッチリです(^^)/ こんな簡単にできるとは思いませんでした♪♪ かみちゃんさんありがとうございましたm(__)m (CHISA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200904/20090419101025.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ