[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『コントロールボタンのサイズを揃えるやり方』(まりも)
コントロールボタンを何個か作りました
サイズを全部一緒にする方法はありますか
それとフィルタをかえるとコントロールボタンが移動します
位置を固定する方法はありますか
教えてください
< 使用 Excel:Excel2019、使用 OS:Windows10 >
フォームコントロールのボタンならば、ActiveSheet.Buttons コレクションを利用して、全ボタン分ループさせながら、幅と高さを指定すれば良いでしょう。 マクロの記録を使えば、必要な命令は判りますよ。
同様に、「コントロールの書式設定」から「プロパティ」にある「セルに合わせて移動やサイズ変更をしない」にチェックすると移動しなくなるので、これもマクロ記録し、サイズを統一するついでにプロパティ変更してしまうと良いでしょう。
(???) 2020/08/12(水) 13:21
(まりも) 2020/08/12(水) 15:09
そうなると、Buttonsコレクションは使えないので、ボタン名等を頼りに、オブジェクトが更新対象か判断する必要が出てきます。
Sub test() Dim B As Object
For Each B In ActiveSheet.OLEObjects If B.Name Like "CommandButton*" Then B.Width = 60 B.Height = 40 End If Next B End Sub (???) 2020/08/12(水) 15:20
Sub test2() Dim S As Shape
For Each S In ActiveSheet.Shapes If S.Name Like "CommandButton*" Then S.Placement = xlFreeFloating End If Next S End Sub (???) 2020/08/12(水) 15:27
そのコントロールを全部選択して 図形の書式設定のサイズで 変更すると全部同じになりますよね??
オブジェクトの書式設定のコントロールの書式設定のプロパティで セルに合わせて移動やサイズ変更をしない にチェックすると動きませんよね??
そういうことではないのですか? Excel2019ですけど。。。 (SoulMan) 2020/08/12(水) 22:24
もうひとついいですか?
端を揃えるには何か方法がありますか
教えてください
(まりも) 2020/08/17(月) 12:40
横から失礼します。
コントロールのプロパティを一通り眺めてみてください。
(OK) 2020/08/17(月) 13:05
上端とか左端なら簡単で、TopとLeftプロパティですね。 WidthとHeightプロパティを使って見せたのだから、これを手掛かりにWeb検索するとか、マクロの記録を試すとか、ご自分で試せる事はあると思います。
そして、ボタンなんて1つ貼ってから正しいサイズに調節しておき、これをカット&ペーストやコピペすれば簡単にセルに合わせたレイアウトにできるのだから、普通はレイアウト変更作業にマクロの出番なんてないですよ。
(???) 2020/08/17(月) 14:07
こんばんは! 私がよく使う方法です。 といっても簡単ですけど、、、、
そのコントロール?図?を選択した状態で 書式タブ(選択すると出てきます) ↓ 配置 ↓ 色々あります。 右揃え 左揃え 上下に整列 などなど、、、
これは私が私の後輩などを指導するとき一番最初に言うことなのですが、、 PCやExcelその他もろもろ全てに共通していると思う基本中の基本。。。 それは、何かしたいときに、、先ず、、選択。。。なのです。。。
選択して右クリック。。。 選択して○○ 選択してほにゃらら。。。 何か実行したいターゲットに対して。。。 先ず、、選択。。。次に、、メニュー。。。です。
この考え方を身につけると何かと便利なことが多いので 是非、、是非、実践しみてください。。。
では、、、では、、、、また。。。 (SoulMan) 2020/08/17(月) 20:56
おかげできれいに整えることができました
丁寧に教えてくれてありがとうございます
(まりも) 2020/08/19(水) 12:40
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.