先日公開されたSkypeの最新バージョン6.18ですが、
古いバージョンを使っていても、一度サインアウトするとアップデートしないと
サインインできなくなってしまいました。

最新版にアップデートするとビデオ通話に不具合があるようです。

私も実際、BAFFALOの180度WEBカメラを使ってビデオ通話をしていたのですが、
Skypeが最新版になるとせっかく180度映るカメラなのに通常の視野角になってしまいました。

BAFFALOに問い合わせるとSkypeの仕様で解像度が3段階（320×240、640×480、1280×720）に
固定されてしまっているため、180度WEBカメラ（1280×480）は利用できない。
また、標準ドライバで動作しているため、ドライバを提供して等の対応も難しいとのことでした。

Skype特別版での利用をご検討ください、とのことだったので、調べてみると
最新版ではビデオ通話自体に不具合があるらしく、古い型のPCでもビデオ通話が可能なように特別版を提供しているようです。
https://support.skype.com/ja/faq/FA12252/
続きを読む…»

DLookupやDCount等はよく使うのですが、他にも便利なメソッドがあったのでご紹介します。

DAvg

指定した数値フィールドの平均値を取得します
返り値は倍精度浮動小数点型(Double)です

DCount

レコード件数を取得します

DFirst

先頭レコードの指定フィールドの値を取得します

DLast

最終レコードの指定フィールドの値を取得します

DLookup

指定したフィールドの値を取得します

DMax

指定フィールドの最大値を取得します

DMin

指定フィールドの最小値を取得します

DSum

指定フィールドの合計値を取得します

書式

DLast(Expr, Domain, Criteria)
続きを読む…»

まずは変数を宣言します。

Dim xlApp   As Object
Dim xlBook  As Object
Dim xlSheet As Object

各オブジェクトを作成します。

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open([Excelファイルのフルパス])
Set xlSheet = xlBook.WorkSheets(1)

ワークシートオブジェクトをwithブロックで使用します。

With xlSheet

画像を貼り付けしたい起点（左上）のセルを選択します。

.Range("A1").Select

withブロックが入れ子になりますが、画像オブジェクトとしてアクセスできるようにします。 続きを読む…»

昨年から急増しているというFacebookアカウントの不正ログイン、アカウント乗っ取り。
怖いですね。。

なぜこのようなことが起こるのかというと、原因は無言の友達申請にあるようです。

何のメッセージもなしに友達申請が来ることってよくありますよね？
で、その人の友達リストを見ると、自分との共通の知り合いがいたりしたら、間違いじゃないな、と思って承認します。
実はこれが落とし穴！

申請をしてきた友達は実はなりすましだったのです。
その人の友達リストにある友達は他もなりすまし、もしくは同じように騙されて友達になった方達です。

このような無言申請を3人許可してしまうと、不正ログインや乗っ取られてしまう危険性があります。
続きを読む…»

Skypeを使えばテレビ会議などを行いたい時、グループビデオ通話が利用できます。
[Skypeのビデオ通話が無料に]の記事でも紹介しましたが、グループビデオ通話が無料で利用できます。

ですが、Skypeでのグループビデオ通話は最大10人までとなっています。
10人以上になるとグループビデオ通話を開始するボタンが非表示になり、開始することができません。

それを解決するには、1台のWEBカメラを複数人が利用するという形式を取らざるを得ません。
そこで、1台のPCに複数台のWEBカメラを接続し、全体（4方向）を映すようにすればできるのではないかと思いました。
ですが、またここで問題。
Skypeは1台のWEBカメラしか使うことができません。

調べてみると、1台のPCでSkypeを複数起動すれば可能とのことで、実際にやってみました。
続きを読む…»