Ｐａｇｅ 17 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼列の位置を知りたい haru 02/8/30(金) 14:39 ┗Re:列の位置を知りたい コロスケ 02/8/30(金) 15:46 ┣Re:列の位置を知りたい ひで 02/8/30(金) 17:01 ┃ ┗Re:列の位置を知りたい haru 02/8/30(金) 17:21 ┗Re:列の位置を知りたい haru 02/8/30(金) 17:18 ─────────────────────────────────────── ■題名 ： 列の位置を知りたい ■名前 ： haru ■日付 ： 02/8/30(金) 14:39 -------------------------------------------------------------------------
| ActiveSheet.Buttons.Add(400, 20, 34, 15).Select というものを使って、ボタンを追加します。 が、これですと、位置が固定です。 マクロで、列幅等を変更しても同じ列の位置に配置したいのです が、どうすれば良いでしょうか？ よろしくお願いします。 |
| ▼haru さん： こんにちは。 Sub test() '// 例:C10セルにC10セルと同じ幅、同じ高さのボタンを追加 '// サイズを固定したい場合は.Width, .Heightを任意の数値に変更 With Range("C10") With ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height) '// キャプションを設定 .Caption = "Test" End With End With End Sub ではー♪ |
| ▼コロスケ さん haruさん こんにちは > ActiveSheet.Buttons.Add(400, 20, 34, 15).Select > というものを使って、ボタンを追加します。 > が、これですと、位置が固定です。 > マクロで、列幅等を変更しても同じ列の位置に配置したいのです >が、どうすれば良いでしょうか？ > よろしくお願いします。 このボタンは、エクセル画面のシートに貼り付くフォームのボタンですよねー ボタンを右クリックしてコントロールの書式設定の中のプロパティに オブジェクトの位置関係があります、ここを変更してみては・・ ちなみに、コードです。 Sub T1() '固定 ActiveSheet.Shapes("Button 1").Select With Selection .Placement = xlFreeFloating .PrintObject = False End With End Sub Sub T2() '移動と共にサイズ変更 ActiveSheet.Shapes("Button 1").Select With Selection .Placement = xlMoveAndSize .PrintObject = False End With End Sub Sub T3() '移動 ActiveSheet.Shapes("Button 1").Select With Selection .Placement = xlMove .PrintObject = False End With End Sub まとはずれだったらごめんなさーい。 ほんじゃーねー |
| ▼ひで さん： こんにちは。 >このボタンは、エクセル画面のシートに貼り付くフォームのボタンですよねー >ボタンを右クリックしてコントロールの書式設定の中のプロパティに >オブジェクトの位置関係があります、ここを変更してみては・・ ありがとうございます。参考にさせて頂きます。 |
| ▼コロスケ さん： >こんにちは。 >Sub test() >'// 例:C10セルにC10セルと同じ幅、同じ高さのボタンを追加 >'// サイズを固定したい場合は.Width, .Heightを任意の数値に変更 >With Range("C10") > With ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height) > '// キャプションを設定 > .Caption = "Test" > End With >End With >End Sub ありがとうございます。うまくいきました。 |