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

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

[[20091110235903]]: #score: 6703; @digest: 70eed4e557be53c6735b086b43729c64; @id: 46333; @mdate: 2009-11-11T14:53:12Z; @size: 2670; @type: text/plain; #keywords: autoshapetype (6567), 四角 (4192), シェ (4064), トシ (3923), ェイ (3827), shp (3239), イプ (2836), ムコ (1906), ボタ (1525), オー (1484), タン (1370), 「" (1346), （ri (1249), 、ボ (1037), す" (933), ichinose (826), ル・ (735), ン2 (734), のボ (721), ・フ (713), ート (691), activesheet (689), トロ (649), のオ (620), プの (612), ォー (610), ン1 (599), 名前 (585), msgbox (544), 研究 (543), ーム (539), 角の (515); 『エクセル・フォームのボタンについて』（Rin）
エクセルのシート（Sheet1）にフォームからボタン、四角のオートシェイプ、円のオートシェイプを貼り付けています。シート（Sheet1）をコピーしてシートを新しく追加した時に、ボタンと四角のオートシェイプのみを削除したいのですが、可能でしょうか? （シートをコピーする時に何故かボタンのみが、ボタン1がボタン2とカウントアップしているらしく名前を指定して消すことができないでいます。）また、ボタンやオートシェイプに固定の名前をつけたり、既につけられている名前を取得して表示することはできますでしょうか? （Excel2003を使用しております）よろしくお願いいたします。 ---- >シート（Sheet1）をコピーしてシートを新しく追加した時に、 >ボタンと四角のオートシェイプのみを削除したいのですが、可能でしょうか? そのボタンや四角や円があるシートをアクティブにした状態で以下のコード（標準モジュール）を実行してください。 Sub test() With ActiveSheet .Copy after:=Worksheets(Sheets.Count) End With With ActiveSheet .Buttons.Delete .Rectangles.Delete End With End Sub アクティブシートを対象ブックの最右端にコピーし、コピーされたシートのボタンと四角を削除します >また、ボタンやオートシェイプに固定の名前をつけたり、既につけられている >名前を取得して表示することはできますでしょうか? Sub test1() Dim shp As Shape With ActiveSheet For Each shp In ActiveSheet.Shapes If shp.Type = msoAutoShape Then If shp.AutoShapeType = msoShapeRectangle Then MsgBox "「 " & shp.Name & " 」は、オートシェイプの四角です" ElseIf shp.AutoShapeType = msoShapeOval Then MsgBox "「 " & shp.Name & " 」は、オートシェイプの円(楕円)です" Else MsgBox "「 " & shp.Name & " 」は、オートシェイプです" End If ElseIf shp.Type = msoFormControl Then If shp.FormControlType = xlButtonControl Then MsgBox "「 " & shp.Name & " 」は、フォームコントロールのボタンです" Else MsgBox "「 " & shp.Name & " 」は、フォームコントロールです" End If End If Next End With End Sub 名前の表示は、このように Nameというプロパティを使えば、取得も設定も可能です。まずは、試してみて、それから研究してください。 ichinose ---- ichinose様丁寧なご回答ありがとうございます。やってみた所、うまくできました。ここ2、3日ずっと気になって試していたのですが、うまくいかずほとほと困っていたので、解決してとてもすっきりしました。ありがとうございました。（Rin） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200911/20091110235903.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ