HOME>TOP>ワークブック

ブックをお気に入りに追加するは？

キーワード>>AddToFavorites

Point ：ブックをお気に入りに追加したい。

Sub Test()
　　Dim RetVal
　　ActiveWorkbook.AddToFavorites
　　'追加するブックは保存していないとエラーになる。

　　Application.CommandBars("Web").Visible = True
　　'確認のためツールバーを表示

　　RetVal = Shell("Explorer.exe C:\WINDOWS\Favorites" _
　　　　　　　, vbNormalNoFocus)
　　'ついでにお気に入りフォルダも開く

End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。