インストラクターのネタ帳

WIA.ImageFileオブジェクトを使えばPNGファイルのサイズをVBAで取得できることをご紹介しました。

もちろん、指定したフォルダーに含まれる全PNGファイルのサイズを取得するExcelマクロも作れます。

続きを読む

ADOとDAOのいずれにもConnectionオブジェクトが存在します。

上図はオブジェクトブラウザーで「Connection」を完全一致検索した様子です。

この2つのConnectionオブジェクトには、同じ名前のメンバーがあったり、なかったりします。

続きを読む

拙著『Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編』の「4-3. WordのFontはメソッドも持つ」で、FontオブジェクトのShrinkメソッドを紹介しています。

「Shrink」という名前のメソッドは、Font以外のオブジェクトにも用意されています。

SelectionにもShrinkメソッドがある

Word文書上の選択範囲やカーソル位置を表すSelectionオブジェクトにも、Shrinkメソッドがあります。

上図はオブジェクトブラウザーで「Shrink」を完全一致検索した状態です。

続きを読む

「vba shrinktofit 効かない」
といった検索が、このサイト『インストラクターのネタ帳』で行われていました。

以下のコードのように、

ActiveCell.ShrinkToFit = True

RangeオブジェクトのShrinkToFitプロパティに論理値Trueを指定すると、

［縮小して全体を表示する］がOnの状態になります。

ところが、上記のコードを実行しても、縮小表示にならない場合があるのです。

続きを読む

VBAでPNGファイルのサイズを取得したかったので簡単なマクロを作ってみました。

LoadPicture関数ではPNGを読み込めない

JPEGファイルなどの場合は、LoadPicture関数を使った以下のようなコードを使えば、画像ファイルを読み込むことができます。

Dim img As Object
Set img = LoadPicture("C:\temp\sample.jpg")

ですが、PNGファイルの場合には

実行時エラー '481':
ピクチャが不正です。

エラーが発生してしまいます。

続きを読む

Excel VBAのSetPhoneticはRangeオブジェクトに用意されているメソッドであることを記事にしました。

ChatGPTに、
「Excel VBAのSetPhoneticメソッドの使い方を教えてください」
とお願いしたら、コンパイルエラーになるコードが生成されたので、ネタにさせていただきます。

続きを読む

Excel VBAのGetPhoneticはApplicationオブジェクトのメソッドだということを記事にしました。

まぎらわしいことに、GetPhoneticによく似た名前のSetPhoneticは、Rangeオブジェクトのメソッドです。

続きを読む

Excel VBAのGetPhoneticメソッドに関して、間違ったコードを紹介しているWebページを見かけたので、記事にさせていただきます。

続きを読む

Access VBAでは「CurrentDb.Name」という式（コード）で、カレントデータベースのフルパスを取得できます。先日、「CurrentDb.Name」について解説しました。

ファイルのフルパスではなくファイル名のみを取得したい、という場合もあるでしょう。

「CurrentDb.Name」で取得したフルパスから、ファイル名部分を切り出しても良いのですが、もっと簡単な式でファイル名のみを取得できます。

続きを読む

複数画像の一括リサイズにRalphaを使っていることをお伝えしました。

Ralphaでは、上図のようなウォーターマーク（透かし文字）も入れられます。

続きを読む