|
とあるブログで解決方法を見つけたんだけども、ググっても再発見できない。
要は Application.ShowWindowsInTaskbar を一度 False にしてから再度 True にすればタスクバーアイコンが復活するということでした。
ただし、WebBrowserControl のある UserForm のコードに上記の処理を書いても無効。(タスクバーアイコンがおかしくなるのはコードの実行後だから。)
UserForm には
For indx = 1 To Application.Workbooks.Count
Workbooks(indx).Activate
Next
ThisWorkbook.Activate
とし、別にイベントクラスモジュールを作って
Public WithEvents xlApp As Application
Private Sub RecoverTaskBar()
xlApp.ShowWindowsInTaskbar = False
xlApp.ShowWindowsInTaskbar = True
End Sub
Private Sub xlApp_WorkbookActivate(ByVal Wb As Workbook)
Call RecoverTaskBar
End Sub
ThisWorkBookで
Dim objEventHandler As EventClassModule
Private Sub Workbook_Open()
If CLng(Application.Version) <= 14 Then
Set objEventHandler = New EventClassModule
Set objEventHandler.xlApp = Excel.Application
End If
End Sub
とイベント有効にしてやればよいはず。
#バージョンチェックしている理由が思い出せない。
|
|