Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39675 / 76732

←次へ　｜　前へ→


	【42166】Re:再度:メディアプレーヤーについて(ichinose様）

ichinose - 06/9/3(日) 14:44 -


	引用なし

	パスワード

▼カッチャンさん：
こんにちは。
OleObject？？
メディアプレーヤーはどこに貼り付けることを想定しているのですか？
ユーザーフォームですか？　シートですか？
それと
>>Private Sub UserForm_Activate()
>>　　Dim cc As Object
>>　　Dim tcon As MSForms.Control
>　　On Error Resume Next
>>　　Set cc = Controls.Add("MediaPlayer.MediaPlayer.1")
>>　　If Err.Number <> 0 Or TypeName(cc) <> "MediaPlayer" Then
>　　Set cc = OLEObjects.Add("MediaPlayer.MediaPlayer.1")　　' 1.
このコード↑

>　　 If Err.Number <> 0 Or cc.Name <> "MediaPlayer1" Then　　' 1.
>>　　　 With Controls 　　　　　 ' 2.
>>　　　　　.Remove .Count - 1 　 ' 2.
>>　　　　　End With
>>　　　 Set cc = OLEObjects.Add("WMPlayer.OCX.7")　 ' 1.
又は　　↑このコードのどちらか正常に作動しているのですか？
どちらも作動しないと思いますが・・・。

>>　　　 '実際にはここでもErrとTypenameで確認する
>>　　　 Set tcon = cc　　　　　 ' 3.　　
>>
>>　　　 End If
>>　　tcon.Visible = False　　　　 ' 4.　
>>'使う時はちゃんと型宣言した変数で操作する　　' 5.
>>End Sub
>
私が想定しているのはユーザーフォームへのコントロールの動的な
配置です。

シート上への動的な配置は、色々問題がありますよ！！
Oleobjects.Add（・・・・)
というコードが本当に正常に作動しているのですか？

1 hits

▼

【41987】メディアプレーヤーについて カッチャン 06/8/28(月) 11:45