ワークシート上にOLEオブジェクトのオプションボタンを設置するため、以下のようなマクロを書きました。
意図したように作動するのですが、一箇所だけ不具合があります。
.Object.BackStyle = fmBackStyleTransparent と、透過に設定してるのですが透過してくれません。(エラーにもなりません。)
どこがおかしいのでしょうか?
Sub test02()
Dim n As Long, i As Long
Dim myRng As Range
With ActiveSheet
For n = 3 To 5
For i = 3 To 10
Set myRng = .Cells(i, n)
Set opt = .OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
Left:=myRng.Left + 2, Top:=myRng.Top + 2, Width:=myRng.Width * 0.8, Height:=myRng.Height * 0.9)
opt.LinkedCell = myRng.Offset(, 4).Address
opt.Object.Value = False
opt.Object.GroupName = "OptG" & i
opt.Object.Caption = Choose(n - 2, "Yes", "No", "N/A")
opt.Object.BackStyle = fmBackStyleTransparent
Next i
Next n
End With
End Sub
No.1ベストアンサー
- 回答日時:
Next i の前の行あたりに、以下を挿入すると取りあえずできます。
opt.Interior.Pattern = xlNone
上記で取りあえずと書いたのは、Excel2003だと、フォーカスのあるコントロール
は透過はされないようですが、フォーカスが別のコントロールに移っても透過
されないままの場合があるようです。透過してくれる場合もあって、その法則性
はよくわからないです。
Excel2010では、透過されないのは現在フォーカスのあるコントロールのみだけ
で、他のコントロールはちゃんと透過してくれています。
以上
この回答への補足
今日、エクセル2007にさわる機会があったので試しました。
2003と同じ結果でした。
2010じゃなきゃだめなんですね。
これはエクセルのバグなんでしょうか。
早速ありがとうございます。
opt.Interior.Pattern = xlNone
試しました。
ちゃんと透過したオプションボタンが現われました。
でもおっしゃるとおり、クリックすると透過されませんし、一旦そうなると別のボタンをクリックしても透過されないままですね。(何度かいじるとまた透過されたりする・・・)
何か変な動きですね。
No.2
- 回答日時:
わたし(エクセル2000使用)はOLEオブジェクトはあまりつかわないので、旧来のフォームのオプションボタンを使ってやってみました。
フォームのオプションボタンとOLEのそれの違いは当然ご存知とは思いますが、一番の違いのグループボックスを非表示にすることでだいぶ近いものにしました。
ただ、リンク先の表示がOLEの場合と違って数字になるのはどうしようもないです。
また、サイズに制約があるので勝手に行高も変えてしまいました。
こんな感じですが、新しいシートでお確かめ下さい。
Sub test03() 'Formの場合
Dim n As Long, i As Long
Dim Rng As Range
Dim gb As GroupBox, opt As OptionButton
With ActiveSheet
.Cells.RowHeight = 19.5 '行高を19.5に設定
For i = 3 To 10 '先にグループボックス挿入
Set Rng = .Range(.Cells(i, "C"), .Cells(i, "E"))
Set gb = .GroupBoxes.Add(Left:=Rng.Left, _
Top:=Rng.Top, Width:=Rng.Width, Height:=Rng.Height)
gb.Characters.Text = ""
gb.Visible = False '非表示に
For n = 3 To 5 'オプションボタン挿入
Set Rng = .Cells(i, n)
Set opt = .OptionButtons.Add(Left:=Rng.Left + 2, _
Top:=Rng.Top + 2, Width:=Rng.Width * 0.8, Height:=Rng.Height * 0.9)
opt.LinkedCell = .Cells(Rng.Row, "G").Address
opt.Value = xlOff
opt.Characters.Text = Choose(n - 2, "Yes", "No", "N/A")
opt.ShapeRange.Fill.Visible = msoFalse '透明に
opt.ShapeRange.Line.Visible = msoFalse '線無しに
Next n
Next i
Set Rng = Nothing
Set gb = Nothing
Set opt = Nothing
End With
End Sub
有難うございます。
フォームのオプションボタンなら簡単に透過させられることは知っていました。
ただ、グループボックスが見えるのがいまいちで、ボタンがグループボックスをはみ出したりするととんでもない結果を招くので二の足を踏んでいました。
なるほど、このように非表示にする手があったのですね!
勉強になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vb.netで画面のコントロールId...
-
エクセル・VBA CheckBoxのオブ...
-
Shapeコントロールの.NET移行方法
-
アクセス特有の書き方?
-
変数をコントロール型で使用す...
-
Groupboxの配下のコントロール...
-
ACCESS2010のVBAでフォーム内ク...
-
OCXって何ですか?
-
カメラスクロールするのを動画...
-
VB6.0日付の色を変更できるカレ...
-
VBAのエラーについて、”実行時...
-
VBのフォーム上にPDF文書を表示...
-
vba dbcommand button activex ...
-
エクセル コントロールツール...
-
コントロールの絶対位置を取得...
-
vb.net メニューをダブルクリッ...
-
Borland C++ Builder > Active-...
-
excelのリストボックスで選択し...
-
コントロールを移動できない
-
Excelで、コンボボックスで選択...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル・VBA CheckBoxのオブ...
-
カメラスクロールするのを動画...
-
vb.netで画面のコントロールId...
-
C#,vb.netで業務用アプリ開発と...
-
EXCELでactivexコントロールを...
-
フォーム上の現在アクティブな...
-
ExcelVBAでListViewが使用できない
-
コンボボックスの文字によるif...
-
C#で角が丸いテキストボックス
-
エクセルVBAでオプションボタン...
-
ユーザーフォームで動的(Me.Con...
-
VBAのフォームでTextBoxがいっ...
-
アクセス特有の書き方?
-
エクセル コントロールツール...
-
間違えて配置してしまったコン...
-
変数をコントロール型で使用す...
-
(VBA)スピンボタンの大量...
-
Labelコントロールの(左右)余...
-
excelのリストボックスで選択し...
-
Excel VBA で Richtextboxを使...
おすすめ情報