Excel

[Excel]こぴぺかんすう　を　りょうさんちゅう

CH3COOH — Wed, 09 Apr 2008 01:29:00 GMT

クラス化の仕方が判らない(ちょい調べてる余裕もなさそうな)ので、サブルーチン+数字という最低な実装をしています。

Sub PlayVideoSono1()
End Sub

Sub PlayVideoSono2()
End Sub

……

みたいな。

あぁ……2時までには寝たい。

[Excel]非表示になった場合イベントを受けたい

CH3COOH — Wed, 09 Apr 2008 00:47:00 GMT

今日中に動画再生機能を実装しろって言うのは厳しいぞ。

現在見ているシートが非表示状態になった時にイベントが欲しいんだけど可能なんだろうか……

目がしょぼしょぼしてきた……かゆ……うま……

[Excel]VBAのClassってコンストラクタ作れるの？

CH3COOH — Wed, 09 Apr 2008 00:25:00 GMT

VBAのClassってコンストラクタ作れるの……？

文法を知らべてもClassについて書いてるサイトが少ない……

[Excel]エクセル(Excel2003)で動画を再生する方法

CH3COOH — Fri, 04 Apr 2008 00:23:00 GMT

[Excel]エクセル(Excel2003)で動画を再生する方法を調べる
の続きです。知人に渡したのをコピペしてるんで、いつもと文章が違います。気にしないでくだし(ﾉ´∀｀*)

Windows Media Player Objectの貼り付け

[表示]→[ツールバー]→[コントロールツールボックス]にチェックを付けて、[コントロールツールボックス]を表示させます。

Windows Media Playerを選択して、

適当な場所へ貼り付ける。

左上に「WindowsMediaPlayer1」って名前が表示されると思うんだけど、
コレがWindows Media Playerっぽい子の名前ね。
貼り付ける度に名前が変わるのでメモっておいてください。→ WindowsMediaPlayer1
あと、どのシートに貼り付けたかもメモっておいてください。→ Sheet1

動画再生のための情報をメモる

WindowsMediaPlayer1 を右クリックしてもらうと、「プロパティ」ってのがあると思うので
それをクリックしてください。

「Left」と「Top」と「Height」と「Width」の数字をメモっておいてね。
これらはWindowsMediaPlayer1 の場所と大きさの事ね。
メモってないと変な場所で、変なサイズで再生されたりするよ。気をつけてね。

動画再生させる

WindowsMediaPlayer1 を右クリックして、[コードの表示]を選択してください。

Microsoft Visual Basic ってのが起動したと思うので、
Microsoft Excel Objects配下のSheet1に下記のコードをコピーしてください。

Sub PlayMovie()
    Dim FilePath As String
    
    ' 前の奴を開いていたら閉じる
    Call WindowsMediaPlayer1.Close

    ' "movie.wmv"っていう名前のファイルを再生する
    FilePath = ThisWorkbook.Path & "\" & "movie.wmv"

    ' ファイル名を設定する
    WindowsMediaPlayer1.URL = FilePath
   
    ' 再生を開始する
    Call WindowsMediaPlayer1.Controls.Play
End Sub

こんな感じになるはず。

あとは、オートシェイプでぐいぐいっと適当にボタンを作って、
オートシェイプを右クリックして[マクロの登録]を選択します。
Sheet1.PlayMovie　を選択してもらえれば、
これでオートシェイプのボタンを押せば動画が再生されるようになります。

はいっ。動画が再生出来ました。

[Excel]エクセル(Excel2003)でWAVファイルを再生する方法

CH3COOH — Sun, 30 Mar 2008 17:04:00 GMT

[Excel]エクセル(Excel2003)で動画を再生する方法を調べるで書いていた知人からまた連絡があって、朝からその対応をしていました。また「教えて！」と来られた時に忘れてそうなのでメモとして残しておきます。

ボタンクリック音を鳴動させる

まずは、ボタンを押したらクリック音を鳴らすようにして欲しいとの事。

'指定されたサウンドを再生します。
Private Declare Function PlaySound Lib "winmm.dll" _
    Alias "PlaySoundA" (ByVal lpszName As String, _
    ByVal hModule As Long, _
    ByVal dwFlags As Long) As Long

'非同期再生フラグ
Private Const SND_ASYNC = &H1

'ボタンクリック音
Private Const ClickSoundFile = "ButtonClick.wav"

'*****************************************
'ボタンクリック音鳴動
'*****************************************
Public Sub PlayBottonClickSound()
    Dim FilePath As String

    FilePath = ThisWorkbook.Path & "\" & ClickSoundFile

    ' WAVファイルを再生する
    Call PlaySound(FilePath, 0, SND_ASYNC)
End Sub

適当なボタンを押した時に

Call PlayBottonClickSound

と「PlayBottonClickSound」をコールしてくれればOKですよ。

リピートで再生しつづける

次に、ボタンを押したら警告音を延々と鳴らすようにして欲しいとの事。

'指定されたサウンドを再生します。
Private Declare Function PlaySound Lib "winmm.dll" _
    Alias "PlaySoundA" (ByVal lpszName As String, _
    ByVal hModule As Long, _
    ByVal dwFlags As Long) As Long

'非同期再生フラグ
Private Const SND_ASYNC = &H1

'繰り返し再生(SND_ASYNCと一緒に指定する必要有り)
Private Const SND_LOOP = &H8

'警告音
Private Const WarningSoundFile = "Warning.wav"

'*****************************************
'警告音鳴動
'*****************************************
Public Sub PlayWarningSound()
    Dim FilePath As String

    FilePath = ThisWorkbook.Path & "\" & WarningSoundFile

    ' WAVファイルを再生する
    Call PlaySound(FilePath, 0, SND_ASYNC Or SND_LOOP)
End Sub

適当なボタンを押した時に

Call PlayWarningSound

と「PlayWarningSound」をコールしてくれればOKですよ。

[Excel]エクセル(Excel2003)で動画を再生する方法を調べる

CH3COOH — Wed, 05 Mar 2008 00:23:00 GMT

アルバイトの教育係をしている知人から連絡があって、オリエンテーションで使用するツールを作っているらしい。

エクセルシートのボタンを押すと、ボタンに応じた動画を流したくって、自分で作ってみたところ、

「ワークシートに埋め込むと再生終了時に静止画が表示出来ない」
「定位置で再生出来ない」
「ボタン２を押すと動画が2つ同時に再生されてしまう」

の3つの問題にぶつかり、僕に電話を掛けたらしい。

どういう現象が起こっているか話を聞いていると、「自分はVBA詳しくないのでヨロシク！！」と丸投げされた。ちょｗｗｗｗ僕もExcelよく判らないんだけどｗｗｗｗｗ

つまりこんな感じ？ボタンを押すと動画が流れる。

動画が流れ終わると用意している静止画を表示する。
ボタン1用の動画を再生中に、ボタン2が押された場合は、再生中の動画を停めて、ボタン2用の動画を流したい。

……と、いう事で上記の仕様でモノが出来るか試す事になりました。期限は2日。
ほんまに出来るんかいな。