アクティブエックスコントロールのイメージコントロールの設置と同時に、
画像をそのコントロールに表示するｖｂａを作ってるのですが、
実行時エラー438が発生します。
Sub test()
Dim objOLE As OLEObject
Set objOLE = ActiveSheet.OLEObjects.Add("Forms.Image.1")
With objOLE
.Name = "Image"
.Picture = LoadPicture("C:\1.gif")
End With
End Sub
C:\1.gifのパスをブラウザで表示させることはできるので、ファイルは存在しているし、
パスは間違っていません。
.Picture = LoadPicture("C:\1.gif")
をコメントアウトすれば正常にコントロールが挿入されます。
コントロールの挿入と同時に画像を表示する方法を教えてください。
ご回答よろしくお願いします。
質問票をExcel VBAで作成、各設問に対する回答はラジオボタン（YES/NO/NA）で選択、NOの場合だけテキストボックスを表示仕組みなのですが、テキストボックスがセルときちんと連動しない時があって困ってます。
詳しく言うと、各設問に対する回答をラジオボタン（YES/NO/NA）で選んでもらい、NOの場合だけ、その理由をテキストボックスに書いてもらう仕組みで、YesまたはNAが選ばれた場合には（フォームをすっきり見せたいため）、テキストボックスを隠します。
ただそのテキストボックス（やラジオボタン）がきちんとセルと連動してくれないときがあります。（きちんと動いた場合のスクリーンショットを添付したのでご確認ください。）微妙に上下にずれてしまいレイアウトが崩れるときがあって困っています。いつ動いているのか、どういうときに動いてしまうのか等のパターンが全然分かりません。
＜ロジック＞
Yes/No/NAのラジオボタンのデフォルトはNoで、すべての設問に対しテキストボックスは表示しておきます。テキストボックスは9行にわたって配置していて、YesまたはNAのクリックイベントによって、その9行の非表示、およびテキストボックスを非表示設定をコントロールしています。
正常に動いているケースのスクリーンショットを添付しましたので、ご確認お願いします。
また、すべてのテキストボックスおよび（”種類”の）ラジオボタンの Placement プロパティは、2（Move but don't size with cells）に設定しています。
この質問票使用時にはパスワードでシート保護もしています。（保護対象外はロック／アンロックされたセルと行）
開発環境：Excel2010 (Version: 14.0.6023.1000(64-bit))
ファイル保存形式：Excel 97-2003 Workbook (*.xls)
＜ソース＞
表示する場合（Noが選択）の関数が下記です。非表示の場合も同様のつくりです。
ラジオボタンのクリックイベント内から下記Subプロシージャが呼ばれます。
Private Sub Set_Visible(ByVal j As Integer, ByVal k As Integer, ByVal m As Integer)
i_RowNumber = （ここでパラーメータの変数を使って値をセット）
ActiveSheet.Rows(i_RowNumber & ":" & i_RowNumber + 9).Hidden = False
For i = 1 To 3
ActiveSheet.OLEObjects("TextBox" & j & "_" & i).Visible = True
Next i
For i = 4 To 7
ActiveSheet.OLEObjects("RadioBtn" & j & "_" & i).Visible = True
Next i
End Sub
※各テキストボックス、ラジオボタンの名前が TextBox1_1やRadioBtn1_4等としているため、For文でまわしてます。
基本的にこのコードで正しく動作しています。ただ、何かの加減でテキストボックスやラジオボタンが予期せぬところに表示されるので、コードの問題というよりは何か不安定要素が絡んでいるのではないかと思ってます。
左右に動く症状は見かけておらず、上下に少し動いて、（添付ファイルを参照ください）”理由１”や”関連リンク”といったテキストボックスのすぐ上に配置した文字を隠してしまったりします。
この症状はわたしのPCだけでなく、他の人のPCで動作確認しても、起きたり起きなかったりします。
この不安定な動作の修正方法が見つからず、ここ二週間ほど困っています。もしどなたか、修正案、もしくは、このロジックを見てもっとシンプルな代替案があれば、是非教えていただけると助かります。
※質問するのは初めてなので不備がありましたら遠慮なくご指摘いただけると助かります！
windows vista 32bit
core 2 DUO P8600 2.4GHz
メモリ4GB(内1GBをramdiskに使用)
のPCです
IEの調子がすこぶる悪く、起動はするもののそこからブラウジングはできません
ウインドウを動かすとその跡？が残ります。
MSの診断ツールを使ったところデータ実行防止の設定を変えろとのことでデフォルトに戻したのですが、IEの調子は結果として治りませんでした
普段はchromeを使っているのですが他のプログラムがIEを呼び出したりする場合に、非常に困っています
Excel2003、2007で実行した場合は正常終了するが
Excel2010で実行するとVBA終了時に強制終了します。
処理は、マクロありブックからマクロなしブックを作成するために、
新規ブックを作成しマクロありブックからシートを移動する処理です。
VBA起動は、フォームコントロールから行っています。
VBA終了時に(End Sub）後にEXCELがなぜか強制終了します。
（Microsoft Excel は動作を停止しました。のメッセージが表示される）
なお、
・フォームコントロールから実行した場合はＥＸＣＥＬが強制終了し、
デバックモードで実行した場合は強制終了しません。
・マクロありファイルの種類：Excel 97-2003ブック
・★★★のソースが含まれていると、Excelが強制終了します。
以下、ソース。
Sub ファイル保存()
'マクロなしファイルを作成
CreateNoMacroBook
End Sub '←ここで異常終了が発生する。
Sub CreateNoMacroBook()
Dim fname As String
Dim ns As Integer
Dim cnt As Integer
Dim i As Integer
'マクロありブックの名前を取得
fname = ActiveWorkbook.Name
'マクロありブックのシート数を取得
cnt = ActiveWorkbook.Worksheets.Count
'すべてのシートをMoveするとエラーになるのでシートを追加
Worksheets.Add After:=Worksheets(Worksheets.Count)
'新規ブック作成時のデフォルトのシート数を保管
ns = Application.SheetsInNewWorkbook
'新規ブック作成時のシート数を変更
Application.SheetsInNewWorkbook = 1
'新規ブック作成
Workbooks.Add
'新規ブック作成時のデフォルトのシート数に戻す
Application.SheetsInNewWorkbook = ns
'マクロありブックのシートを新規ブックの"Sheet1"シートの前に移動
For i = 1 To cnt
Workbooks(fname).Worksheets(1).Move Before:=Workbooks(Workbooks.Count).Worksheets("Sheet1") '★★★
Next i
'表示用に新規ブックの一枚目のシートをアクティブにする
Workbooks(Workbooks.Count).Worksheets(1).Activate
Application.DisplayAlerts = False '新規ブックのデフォルトシート"Sheet1"を削除する
Workbooks(Workbooks.Count).Worksheets("Sheet1").Delete
Workbooks(Workbooks.Count).Activate
Application.DisplayAlerts = True
End Sub
