Visio 2013 に対してアプリケーションをテストしようとしていますが、Visio 2013 Preview で「Microsoft Office はこの製品のライセンスを確認できません。コントロール パネルを使用して Office プログラムを修復する必要があります」というメッセージが表示される問題が発生しています。
ボタンが付いたシンプルなVB6フォームがあります。ボタン イベント ハンドラーには、次のコードがあります。
Private Sub Command3_Click()
Dim visoObj As Visio.Application
Set visoObj = New Visio.Application
visoObj.Visible = True
End Sub
クリックすると Visio アプリケーションが開きますが、「Microsoft Office はこの製品のライセンスを確認できません。コントロール パネルを使用して Office プログラムを修復する必要があります」というメッセージが表示されます。
製品がアクティブ化されていることを確認し、アンインストール/再インストール/修復/プログラムの追加/削除からキーを再入力しようとしました。
私も試してみました
cscript ospp.vbs /act
http://answers.microsoft.com/en-us/office/forum/office_home-office_install/office-cannot-verify-the-license-for-this-product/3bb811ad-29d6-49c7-a3d0-4634c154d155で説明されているとおり?msgId=be64dcd6-ab02-4388-bb09-c9ab41ffe9ab
VB6 と Visio 2013 のプレビューが動作するようになった人はいますか?
Visio 2013 描画コントロールを VB6 フォームに追加しようとした場合にも、このメッセージが表示されます。
同様のコードを試して、Word 2013 Preview と Excel 2013 Preview を開くことにも成功しました。これはうまくいきました。Visio の何が問題なのかわかりません。
ヘルプはありますか?