マイクロソフトコミュニティから誘導されて来ました。
皆様よろしくお願い致します。
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の値も全く反映されません。
すべてのファイルで「ファイル名が下に表示されたアイコンが挿入される」状態にしたいのですが、
方法はありませんか？
