Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)
- [[20171007162919]]
- #score: 6703
- @digest: 7b1ea0833bdaef6945e2c2f829c4b68b
- @id: 74565
- @mdate: 2017-10-07T08:10:46Z
- @size: 1535
- @type: text/plain
- #keywords: mycul (27823), deleteme (15241), プ表 (5084), ル各 (4795), msoshaperoundedrectangle (4449), 度ダ (2569), autosize (2416), forecolor (2091), た項 (1868), シェ (1806), schemecolor (1777), shaperange (1767), トシ (1743), ェイ (1700), ルク (1543), ダブ (1415), addshape (1324), イプ (1260), onaction (1248), selection (1144), 行追 (921), 要領 (886), クマ (814), characters (811), beforedoubleclick (722), ブル (722), 記マ (693), オー (659), リッ (637), colorindex (636), クリ (630), 各行 (628)
- 『ダブルクリックでオートシェイプを表示する』（クマ）
他の方のQ&Aを参考にして A3からY50セルをダブルクリックすると クリックしたセル各行へAH列に入れた項目がオートシェイプで表示するのですが表示した項目を再度ダブルクリックすると消えるようにしたいです。 それとJ列をダブルクリックするとJ1に入れた項目をオートシェイプ表示、K列をダブルクリックするとK1に入れた項目をオートシェイプ表示する様に、S列まで同じ要領で表示したいです。 宜しくお願いします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim MyCul As String MyCul = "AH" '項目を入力した列 If Intersect(Target, Range("A3:Y50")) Is Nothing Then Exit Sub With Target If Range(MyCul & .Row).Value <> "" Then ActiveSheet.Shapes.AddShape(Type:=msoShapeRoundedRectangle, _ Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height).Select Selection.Characters.Text = Range(MyCul & .Row).Value Selection.AutoSize = True Selection.ShapeRange.Fill.ForeColor.RGB = Range(MyCul & .Row).Interior.Color Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.Font.ColorIndex = Range(MyCul & .Row).Font.ColorIndex End If End With End Sub ＜ 使用 Excel:Excel2013、使用 OS:Windows8 ＞ ---- 1行追加して Selection.OnAction = "DeleteMe" そうすると、表示した図形に下記マクロを登録できます。 Sub DeleteMe() ActiveSheet.Shapes(Application.Caller).Delete End Sub （マナ） 2017/10/07(土) 17:10... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201710/20171007162919.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97050 documents and 608246 words.
訪問者：