- ベストアンサー
EXCEL2000でInitialize時にListBoxが希望する大きさにならない
- EXCEL2000のInitialize時にUserFormを表示させる際、ListBoxが希望通りの大きさにならないことがあります。マクロの実行直後にはほぼ必ず指定したサイズにならず、デフォルトの大きさのままになります。
- MSGBOXを挿入すると確実に希望通りのサイズになることが確認されています。しかし、何らかの対処方法は分かっていません。
- EXCEL2000でUserFormのサイズを指定する際に問題が発生し、ListBoxのサイズが希望通りにならない場合があります。解決策は未知です。
- min128mini
- お礼率87% (148/170)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- アプリケーション自体のサイズを設定したい エクセル
エクセルでウインドウのサイズは、 Sub Macro1() With ActiveWindow .Top = 0 .Left = 0 .Width = 300 .Height = 300 End With End Sub で自分の好きな大きさにできますが、 アプリケーション自体のサイズを上記のように細かく指定するにはどうすればいいでしょうか？ ＡＰＩを使うのでしょうか？ コードをご教授いただけますか？
- ベストアンサー
- オフィス系ソフト
- 【ExcelVBA】ユーザフォーム初期化時にリストボックスのサイズを変更したい
お世話になります。 ExcelのVBAを利用してマクロを作成しているのですが、ユーザフォームにリストボックスを設定し、任意の高さを調節したいと思っております。 ユーザフォームツールで、ユーザフォーム（UserForm1)を作成し、その中にリストボックス（ListBox1）を設定しました。 下記のコードはサンプルですが、なぜかリストボックスの高さが調整されないのです。。 コードが間違っているのでしょうか？ 詳しい方、ご指導お願いします。。。 Private Sub UserForm_Initialize() With UserForm1.ListBox1 .AddItem "テスト1" .AddItem "テスト2" .Height = 50 End With 'リストボックスの高さを表示する Msgbox UserFrom1.ListBox1.Height End Sub ※Msgboxでは"50"と表示されず、ユーザフォームツールで設定した高さが表示されてしまいます。。
- ベストアンサー
- 会計ソフト
- エクセルＶＢＡ フォームへ動的に貼り付けたボタンのクリックイベントを検知する方法を教えてください
(1)excel97にのVBAでフォームを作成します。 デフォルトの場合はUserForm1という名前がつきます。 (2)標準モジュールとして下記のコードを作成します。 Sub ボタンを付けて表示() Dim btn As Control With UserForm1 ’ボタンを"button"という名前で作成します Set btn = .Controls.Add("Forms.CommandButton.1", "button") ’ボタンの設定をします With btn .Top = 5 .Left = 5 .Height = 20 .Width = 200 .Caption = "push me!" End With ’フォームの設定をし、表示します .Height = 60 .Width = 220 .Show End With End Sub (3)マクロを実行するとフォームが表示されます。 そこでこのボタン（"push me!"と表示されています）をクリックします。 このクリックを検知してマクロを動かしたいのですが可能でしょうか？ なおUserForm1に下記のコードを付けてみたのですがクリックは検知できませんでした。 Private Sub button_Click() MsgBox "You click the button." End Sub
- ベストアンサー
- オフィス系ソフト
- ListBoxのBackColor変更
EXCEL2007のVBAにて質問です。 ユーザーフォームにリストボックスを配置して、選んだ物によって リストボックスの背景色を変更しようとしているのですが、うまくいきません。 例えばlistbox１を以下の様にセットし、 Private Sub UserForm_Initialize() UserForm1.ListBox1.AddItem ("ピンク") UserForm1.ListBox1.AddItem ("白") End Sub 下記の通り選んだ項目で背景色を変えたいのですが、 Private Sub ListBox1_Click() '選んだ項目で色変え If UserForm1.ListBox1.ListIndex = 0 Then UserForm1.ListBox1.BackColor = RGB(255, 128, 128) 'ピンクなら背景をピンクに Else UserForm1.ListBox1.BackColor = RGB(255, 255, 255) '白なら背景を白に End If End Sub クリックして項目を選択しても背景の色が変わりません。 何か見落としている事があるでしょうか？ 又はやり方が悪いのでしょうか？ お教え頂けると助かります。 以上、宜しくお願い申し上げます。
- ベストアンサー
- その他MS Office製品
- エクセルのウインドウをど真ん中に表示したい
Sub Macro2() Dim i As Long Dim j As Long i = Application.UsableHeight / 20 j = Application.UsableWidth / 40 With ActiveWindow .Top = i .Left = j End With With ActiveWindow .Height = i * 18 .Width = j * 38 End With End Sub これで、エクセルのアプリケーション内にウインドウを表示させたくて、 上下左右同じ長さの空白を入れたいのですが 左側の空白が多いです。 何故均等にならないのでしょうか？
- ベストアンサー
- その他MS Office製品
- シート名を変更すると、そのシートのデータがリストボックスに表示されない
Vista SP1 ExcelXPでマクロ作成中の超初心者です。 シートＡ会社のセルを、右クリックすると、ユーザーフォームが現れ、その中のリストボックスにsheet1の データが表示されます。sheet2 sheet3 も同様に、正常にリストボックスが表示できています。 ところが、シートの名前 「sheet1」を、「関係データ1」に変更すると フォームにリストボックスが表示されますが、中身は表示されません。 シート名を変更しても、右クリックでリストが正常に表示できるようにするにはどうすればよろしいでしょうか。 1）ブックには,13枚のシートがあります。 1）シート名が Ａ会社からＪ会社 sheet1 sheet2 sheet3 2）会社シートにはそれぞれ以下のコードを記入してあります。 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True 'プロシージャ終了後に表示されるショートカットメニューの非表示 If Target.Row > 14 And Target.Row < 45 And Target.Column > 13 And Target.Column < 15 Then UserForm1.Show End If If Target.Row > 14 And Target.Row < 45 And Target.Column > 19 And Target.Column < 21 Then UserForm2.Show End If ユーザーフォームには、次のコードがあります。 Option Explicit Private Sub CommandButton1_Click() 'With ListBox1 'If .ListIndex = -1 Then 'MsgBox "項目を選択してくだい" 'Else ActiveCell.Value = ListBox1.list(ListBox1.ListIndex) End If End With Unload UserForm1 End Sub ------------------------------------------ Private Sub CommandButton2_Click() Unload UserForm1 End Sub 'Private Sub UserForm_Initialize() 'Me.StartUpPosition = 0 ' Me.Left = 200 ' Me.Top = 100 ' Me.Height = 400 ' Me.Width = 230 'End Sub Private Sub 閉じる_Click() Unload UserForm1 End Sub Private Sub ListBox1_Click() With ListBox1 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox1.list(ListBox1.ListIndex) ActiveCell.Offset(0, 7).Value = ListBox1.list(ListBox1.ListIndex, 1) Selection.Offset(0, 7).Select End If End With Unload UserForm1 End Sub -------------------------------------------
- ベストアンサー
- Visual Basic
- パワーポイントVBAでグラフのサイズ・位置を統一
パワーポイントVBAに貼付けた複数のグラフサイズを統一したいと思っています。 1～20枚目のスライドに、それぞれ２つのグラフが貼付けてあります。 全てのグラフサイズ・位置を統一したいと思い、以下の様なVBAを書いてみました。 ---------- Sub 表サイズの統一() Dim myTop1, myLft1, myHgt1, myWdt1, cnt, i, myTop2, myLft2, myHgt2, myWdt2 With ActivePresentation.Slides(1).Shapes(1) myTop1 = .Top myLft1 = .Left myHgt1 = .Height myWdt1 = .Width End With With ActivePresentation.Slides(1).Shapes(2) myTop2 = .Top myLft2 = .Left myHgt2 = .Height myWdt2 = .Width End With cnt = ActivePresentation.Slides.Count For i = 2 To cnt With ActivePresentation.Slides(i).Shapes(1) .Top = myTop1 .Left = myLft1 .Height = myHgt1 .Width = myWdt1 End With Next For i = 2 To cnt With ActivePresentation.Slides(i).Shapes(2) .Top = myTop2 .Left = myLft2 .Height = myHgt2 .Width = myWdt2 End With Next End Sub ---------- 各スライドにある１つ目のグラフのサイズは統一出来たのですが、２枚目のグラフは何の変化もおきません。 どこが悪いのか、どなたかご教示頂ければ幸いです。 どうぞよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- リストボックスから項目を選択してセルに入力したいのです
EXcel2003でマクロ作成中です。エクセルシートのＮ列を右クリックすると、ユーザーォームが現れ、その中のリストボックスから項目を選択すると選択文字が白色に反転します。 ユーザーホームの下方に設置した「入力する」ボタンをクリックする、アクティブセルにテキスト文字列が挿入されます。 Option Explicit Private Sub CommandButton1_Click() With ListBox1 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox1.list(ListBox1.ListIndex) End If End With Unload UserForm1 End Sub --------------------------- Private Sub CommandButton2_Click() Unload UserForm1 End Sub ------------------------------ これと同じものをＢ列につくりました。エクセルシートのＢ列を右クリックすると、リストボックスが表示されますが、その中の項目を選択しようとすると、一瞬にしてユーザーフォーム自体が消えてしまい項目を 選択できません。 Private Sub CommandButton1_Click() With ListBox2 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox2.list(ListBox2.ListIndex) End If End With Unload UserForm2 End Sub ----------------------------- Private Sub CommandButton2_Click() Unload UserForm2 End Sub ------------------------------------------ まったく同じものを作って内容だけかえたのですが、できません。 どうしてでしょうか？ご教授おねがいします。
- ベストアンサー
- Visual Basic
- コマンドボタンを押すと、ユーザーフォームが表示されるマクロを組んでおり
コマンドボタンを押すと、ユーザーフォームが表示されるマクロを組んでおります。 このとき、ユーザーフォームの表示位置をあるセル（例えばE12）の隣にしたいのですが、 下記のマクロでは、画面をスクロールした場合に対応できません。 恐れ入りますが、ご教示いただけるとたすかります。。 Private Sub UserForm_Initialize() Me.StartUpPosition = 0 Me.Top = Application.Top + 180 Me.Left = Application.Left + 100 Me.Height = 80 Me.Width = 100 End Sub 投稿日時 - 2010-03-11 10:09:05
- ベストアンサー
- オフィス系ソフト
- 図形消去後に文字入力(エクセル）
Sub test() Dim c As Range If Not TypeName(Selection) = "Range" Then Exit Sub For Each c In Selection With c.MergeArea wTop = .Top wLeft = .Left wBottom = .Top + .Height wRight = .Left + .Width End With For Each s In ActiveSheet.DrawingObjects With s If wTop <= .Top And _ wLeft <= .Left And _ wBottom >= .Top + .Height And _ wRight >= .Left + .Width Then .Delete End If End With Next Next End Sub 上記マクロは、選択状態になっている個々のセルの中に、すっぽり収まる状態で存在しているオブジェクトを消去します。 オブジェクトが消去されたセルに、"○"が入力されるようにしたいのですが。 どういった記述が必要になるでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
DOEVENTSでばっちりOKになりました。とても助かりました。ありがとうございます。