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

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

[[20041220114943]]: #score: 6703; @digest: 3868df43c5dc0dec031b1e68f44f0163; @id: 10920; @mdate: 2004-12-20T10:16:42Z; @size: 3593; @type: text/plain; #keywords: moveafterreturndirection (25019), incrementrotation (17063), プ39 (14996), autoshape (12583), 転角 (12025), 」↓ (9884), 始動 (9701), サス (9563), ロ始 (9344), 横" (6766), ・語 (6425), ス-- (6339), 角度 (4890), xltoright (4677), シェ (3613), shaperange (3535), ェイ (3401), 語彙 (3330), 動後 (2991), sus304 (2767), 回転 (2741), トシ (2614), イプ (2520), 矢印 (2096), に矢 (2018), 案2 (1666), characters (1623), shapes (1320), イカ (1171), 向を (1165), selection (1144), application (1050); 『マクロ始動後オートシェイプの変換』（SUS304）
絶対掲題表現が、違うの分かっているんですが・・・語彙に欠けます。つまり、エンターキーの後、右or下の変更をマクロで頂きツールバーに登録してあるのですが、シート上のオートシェイプに登録して、クリックすると図形が変わるような、コードをさがしています。例:→が↓に変わるなどよろしくご教示おねがいもうしあげます。以上以下、現状のコード Sub MARD() If Application.MoveAfterReturnDirection = xlToRight Then Application.MoveAfterReturnDirection = xlDown Else Application.MoveAfterReturnDirection = xlToRight End If End Sub ---- 考え方。「Enterキーを押した後に動く方向を変えるマクロがあって便利だなー」 ↓ 「そうだ、画面に矢印を表示して今どっちの方向に動くのかが視覚的にわかると更に便利になるぞ」 ↓ 「じゃあまずは手始めに矢印を配置してみよう」 ↓ 「配置したは良いけど…これの方向を変えるにはどうするんだ?」 ↓ 「お、どうやら『オートシェイプの書式設定』のサイズに『回転角度』とかいうのがあるぞ!」 ↓ 「ここの値をいじったら…おぉ、矢印の向きが変わったぞ」 ↓ 「これをマクロでやるにはどうするんだろう…そうだ、『マクロの記録』をしてみよう!」 ↓ 「記録を開始して…回転角度を設定して…よし、これで記録終了だ。出来上がったマクロを見ると…」 ↓ 「よしよし出来てる。これでオートシェイプの回転角度をマクロで変更する方法がわかったぞ」 ↓ 「あとはこれを既存の動きに組み込めばカンペキだ!」って事で、どうでしょう。その結果、なにかしら疑問が生じたら再度その点について質問してみるときっと誰かしら色々と回答してくれるんじゃないかな〜と。（ご近所PG） ---- 案2 図形を2個配置して、Visibleプロパティで表示・非表示を切り替える。 (INA) ---- がってん。 How To 1・2 かましてみます。サス ---- 動かないッス。なんだか読んでくれてません。シェイプを選んで、角度をチェック、クリックする図形とイコール・・・ Sub オートシェイプ39_Click() If Application.MoveAfterReturnDirection = xlToRight Then Application.MoveAfterReturnDirection = xlDown ActiveSheet.Shapes("AutoShape 39").Select Selection.ShapeRange.IncrementRotation -270# Else Application.MoveAfterReturnDirection = xlToRight ActiveSheet.Shapes("AutoShape 39").Select Selection.ShapeRange.IncrementRotation -90# End If End Sub なにが足りないんだろう?サス ---- いや、動きました。がっつり動いております。縦横なんていれてみたんですが。そこで質問クリックしてマクロ始動後、シェイプがアクティブになりますコレを回避する方法は、無いでしょうか? Sub オートシェイプ39_Click() If Application.MoveAfterReturnDirection = xlToRight Then Application.MoveAfterReturnDirection = xlDown ActiveSheet.Shapes("AutoShape 39").Select Selection.ShapeRange.IncrementRotation -270# Selection.Characters.Text = "縦" Else Application.MoveAfterReturnDirection = xlToRight ActiveSheet.Shapes("AutoShape 39").Select Selection.ShapeRange.IncrementRotation -90# Selection.Characters.Text = "横" End If End Sub サス ---- どこか適当なセルを最後にSelectしてみてはいかがでしょう。（みやほりん） ---- activecell.activate が良いと思います。 (INA) ---- 非常〜にうまくいきました。サイズに併せて、変更をチェックしたら、クリックのたびに前に進む、イカす矢印ができました。笑質問発信の不備を考慮、反省ししばらく入室を控えます。みなさんお元気で。（といいながら、スグ来ると思いますが） SUS304 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200412/20041220114943.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ