Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)
- [[20081126213848]]
- #score: 6703
- @digest: df556e1ca7b8e071c1372eae36eeda3e
- @id: 41038
- @mdate: 2008-11-26T15:29:34Z
- @size: 1483
- @type: text/plain
- #keywords: rectangle (6532), chisa (6055), msoshaperectangle (4281), シェ (2709), トシ (2615), ェイ (2551), incrementleft (2335), ・te (2222), 167 (1941), イプ (1890), addshape (1324), shapes (1321), 事? (1258), 移動 (1102), （ch (1011), オー (989), shaperange (883), 位置 (768), activesheet (689), ス1 (635), トボ (602), の位 (532), テキ (473), キス (437), ドボ (416), textbox1 (412), 今度 (397), top (389), 動さ (382), 置を (338), 文章 (313), 訂正 (311)
- 『マクロでオートシェイプの位置を指定』（CHISA）
オートシェイプについて質問です。 テキストボックスを使い、オートシェイプの位置を入力して、 オートシェイプを移動させたいです。 マクロの記録をしてみました。 オートシェイプを画面に表示させました。 Sub Macro1() ActiveSheet.Shapes.AddShape(msoShapeRectangle, 167.25, 49.5, 113.25, 48.75). _ Select End Sub 今度は移動してみました。 Sub Macro2() ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.IncrementLeft -99# End Sub 移動するときは、移動する値（-99#のことです）が必要なのはわかったのですが、 位置を指定して移動させることはできますか? （msoShapeRectangle, 167.25, 49.5, 113.25, 48.75で場所を指定するみたいな） わけわかんなくてすみません。 よろしくお願いします。 ※文章ちょっと訂正しました。 （CHISA） ---- ↓の様な事? Sub Macro3() With ActiveSheet.Shapes("Rectangle 1") .Left = 167.25 .Top = 49.5 End With End Sub これは最初の位置に移動しますが。 (HANA) ---- HANAさんできました!ありがとうございますm(__)m もうひとつ質問があります。 オートシェイプのLeftとTopの位置の値を コマンドボタンを押して、テキストボックス1,2に表示することはできますか? お暇なときでよいので教えてください。。。 (CHISA) ---- えっと・・・・ TextBox1.Text = ActiveSheet.Shapes("Rectangle 1").Top こんなこと? (HANA) ---- そのとおりです!HANAさんかんぺきですぅ!! ありがとうございましたm(__)m (CHISA)... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200811/20081126213848.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97012 documents and 608132 words.
訪問者：