Microsoft 製品に組み込まれている Visual Basic の実装。
Excel自体の問題かなと思ってこちらを選んだのですが、VBA フォーラムに移動したいと思います。
誘導ありがとうございました。
このブラウザーはサポートされなくなりました。
Microsoft Edge にアップグレードすると、最新の機能、セキュリティ更新プログラム、およびテクニカル サポートを利用できます。
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/oleobjects-add-method-excel
上記のサンプルコードを参考に下記のコードで実験しています
環境はExcel2013で新規ファイルで行っています
Worksheets(1).OLEObjects.Add FileName:="xxx.csv", _
Link:=False, DisplayAsIcon:=True, IconLabel:=”Hello”, Left:=40, Top:=40, _
Width:=150, Height:=10
・上記のパラメーターで試した場合
csv,xlsm:ファイル名が表示されないアイコンが挿入される
xlsx,pdf:ファイル名が下に表示されたアイコンが挿入される
・DisplayAsIcon:=Falseの場合
csv,xlsm:ファイルの中身が表示されたアイコンが挿入される
pdf:私の環境ではファイル名が下に表示されたアイコンが挿入される
他の環境ではPDFの最初のページが表示されたアイコンが挿入される
xlsx:ファイル名が下に表示されたアイコンが挿入される
このような挙動です。
IconLabelの値も全く反映されません。
すべてのファイルで「ファイル名が下に表示されたアイコンが挿入される」状態にしたいのですが、
方法はありませんか?
Microsoft 製品に組み込まれている Visual Basic の実装。
ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。
Excel自体の問題かなと思ってこちらを選んだのですが、VBA フォーラムに移動したいと思います。
誘導ありがとうございました。
ba_601 さん、こんにちは。
マイクロソフト コミュニティのご利用、ありがとうございます。
マクロでファイルを挿入した際、ファイル名が下に表示されたアイコンが挿入される状態にしたいのですね。
せっかくこちらに投稿していただいたのですが、基本的な使い方やトラブルの対処法について情報交換を行っているマイクロソフト コミュニティでは情報が集まりにくいかもしれません。。
今回の内容は Msdn フォーラム内の VBA フォーラムに投稿されるとアドバイスや情報が集まりやすいと思います。
◆ Msdn フォーラム - Visual Basic for Application (VBA)
よろしければ、ご利用くださいね。