Windows XPで動いていたWEBカメラ用VBAが Windows 8.1で動作しません。
対応方法をご存じの諸先輩に何卒ご教示いただきたく投稿いたしました。
症状は、接続しようとすると「ビデオソース」というウィンドウが表れ
ソースキャプチャのタブでビデオデバイスの選択というコンボボックス
が表示されます。
コンボボックスの表示内は「TOSHIBA Web Camera - HD」でおそらくPC
内臓のWEBカメラだと思われます。
また外部カメラを接続している場合はそのカメラと両方が選択可能な表
示となります。
そこでどちらを選択してOKを押しても「接続失敗・・・・・」のメッセ
ージ表示となります。
ただしPC立ち上げ後1回だけはこの選択画面がでず、内臓カメラの映像
が表示されるのですが2回目以降は前述の通りのエラーとなります。
VBAは次の通りです。
'Declare PtrSafe Functionの記述は省略します。
Private Sub CommandButton1_Click()
Dim MyHandle As Long
MyHandle = FindWindow("ThunderDframe", Me.Caption)
CapHandle = capCreateCaptureWindow("", WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, MyHandle, 0)
If CapHandle = 0 Then
MsgBox "作成失敗", vbOKOnly, "エラー"
Exit Sub
End If
'カメラ接続
If SendMessageAsLong(CapHandle, WM_CAP_DRIVER_CONNECT, 0, 0) = 0 Then
Call DestroyWindow(CapHandle)
CapHandle = 0
MsgBox "接続失敗 他のポートを選択して再度クリックしてください。"
Exit Sub
End If
SendMessageAsLongの第3引数を変えても同じ症状です。
ご教示よろしくお願いいたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
WEBカメラのメーカーサイトにWindows 8対応ドライバがないか探してみては?
(デバイスマネージャで該当のデバイス右クリック「プロパティ」「ドライバ」「削除」再起動でWindows汎用ドライバを再生成し認識することがあります→古いWEBカメラはメーカーがドライバを最新のWindows 8対応にアップデートしない場合もあります)
No.1
- 回答日時:
デバイスマネージャが(!)になっていないですか。
WindowsXPで使えていても、Windows8.1では無効なデバイスが多々あります。
(!)が有りましたら、一旦削除して、WEBカメラを繋いだままで、ハードウエアの変更を実行してみてください。
あまり。回答の参考になっていないですが
ご回答ありがとうございました。
質問の記述が悪かったと思います。XPで使用できたWEBカメラが8.1で使用できなく
なったのではなく、VBAがうまく動いていないようです。
今回、購入したWindows8.1のPCに内臓されたカメラでも、外付けしたWEBカメラでも
同じ症状です。
またPC起動後、最初の1回は内臓カメラの画像も外付けWEBカメラの画像も表示され
るのです。(ドライバの問題ではないと思うのですが・・・・)
2回目以降は、質問で記述したエラーとなります。
EXCELのブックを一旦閉じて再度やり直してもカメラ選択画面が出て同じエラーとな
ります。
PCを再起動して同様の事を実行すると1回だけ正常に画像が表示されます。
以上のような症状です。よろしくご教示お願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
iPhoneを使っていたらいきなり...
-
YAMAHAのAG03をPCにUSBで挿して...
-
Googleフォトから写真をデバイ...
-
Media Playerが同期出来ません
-
携帯番号はなく、ホットメール...
-
アクティビティーに com.androi...
-
Microsoft ACPI-Compliant
-
スマホのデータ転送 USB:type-c...
-
昔のマイクロソフト製のジョイ...
-
デバイスとは何ですか
-
センシングデバイスとは何ですか?
-
外付けHDDの中身のHDDのメーカ...
-
デバイスのウェブページとは?
-
SONY VAIOの内蔵カメラが認識さ...
-
技適マーク
-
デバイスマネージャーの安定化...
-
Win8.1でWEBカメラが使えない
-
コマンドプロンプトでデバイス...
-
デバイスって何のことですか?
-
Bluetoothが接続できない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
iPhoneを使っていたらいきなり...
-
YAMAHAのAG03をPCにUSBで挿して...
-
Googleフォトから写真をデバイ...
-
激安電子顕微鏡なんですがWindo...
-
普段と異なるデバイスからログ...
-
YT Music デバイスのファイル表示
-
昔のマイクロソフト製のジョイ...
-
今一つ前のiPhone機種変する前...
-
センシングデバイスとは何ですか?
-
Google Chromecast 2台目を使用...
-
技適マーク
-
カードリーダーが反応しません
-
アクティビティーに com.androi...
-
Windows10の共有エクスペリエン...
-
USBサウンドデバイスの名前を変...
-
東方地霊殿でPS2パッドが使えない
-
コマンドプロンプトでデバイス...
-
デスクトップPCの外付けHDDが認...
-
2台のPCのOUTLOOKのデータの同...
-
MusicBeeについて
おすすめ情報