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

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

[[20070512110910]]: #score: 6703; @digest: a88d76f21d123fc53e7707200a1d0af7; @id: 30697; @mdate: 2007-05-14T08:19:14Z; @size: 2024; @type: text/plain; #keywords: aheight (44523), aleft (26349), awide (25139), atop (20449), addshape (9270), 時三 (7005), msoshapearc (6812), msoshapecan (6721), msoshapediamond (6721), 能aw (6548), msoshapefoldedcorner (6425), msoshapehexagon (6386), msoshapeisoscelestriangle (6198), 20050514151949 (5832), 円高 (5599), 角等 (4200), ○. (3920), 位, (3540), 率1 (2859), シェ (2709), 」又 (2586), ェイ (2551), shapes (2200), msoshapeoval (2175), ル高 (2161), イプ (1890), トシ (1743), hi (1535), activecell (1524), 楕円 (1482), 小生 (1422), 夕焼 (1420); 『オートシェイプ』（SAY）
マクロの勉強中で、色々模索しながらやっています。あるアクションをした時に「1」又は「0」をセルに出力させるのですが、（ここまではなんとかできました）その「1」又は「0」をオートシェイプに変換させることってできるのでしょうか? 例えば、セルA1をダブルクリックすると「1」が出るのですがそれを「1」では無くて、オートシェイプの四角とかにしたいのです。同様に「0」の時三角等。 ---- 入力した文字によって表示するシェイプを切り替えるのでしたら、シェイプを全て配置しておいて、 ○.Visible = True ○.Visible = False を切り替えるようにすればいいと思います。 (MARBIN) ---- 一つだけなら（しかも円ですが）、過去にこの様なご質問がありました。 [[20050514151949]]『マクロでオートシェイプを描く』（やん） (HANA) --------------------------------------------------- マクロを使って,以下のようなのはどうでしょうか。切替は入っていません。（他の小生の回答より流用）（夕焼） Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) hi = 1.5 ' 楕円高さのセル高さ倍率1.5位,適宜変更可能 awide = ActiveCell.Width aheight = ActiveCell.Height aleft = ActiveCell.Left atop = ActiveCell.Top - aheight * (hi - 1) * 0.5 'ActiveSheet.Shapes.AddShape(msoShapeHexagon, aleft, atop, awide, aheight * hi).Select 'ActiveSheet.Shapes.AddShape(msoShapeCan, aleft, atop, awide, aheight * hi).Select 'ActiveSheet.Shapes.AddShape(msoShapeArc, aleft, atop, awide, aheight * hi).Select 'ActiveSheet.Shapes.AddShape(msoShapeDiamond, aleft, atop, awide, aheight * hi).Select 'ActiveSheet.Shapes.AddShape(msoShapeFoldedCorner, aleft, atop, awide, aheight * hi).Select ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, aleft, atop, awide, aheight * hi).Select 'ActiveSheet.Shapes.AddShape(msoShapeOval, aleft, atop, awide, aheight * hi).Select Selection.ShapeRange.Fill.Visible = msoFalse ActiveCell.Select End Sub ---- すみません、まだ皆さんにご回答していただいた件、確認できていません! m(_ _)m 申し訳ありません! （SAY） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200705/20070512110910.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ