none
ファイル挿入した際の挙動が挿入するファイルによって違う表示になってしまう(統一したい) RRS feed

  • 質問

  • マイクロソフトコミュニティから誘導されて来ました。
    皆様よろしくお願い致します。

    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の値も全く反映されません。
    すべてのファイルで「ファイル名が下に表示されたアイコンが挿入される」状態にしたいのですが、
    方法はありませんか?

    2018年6月26日 4:45