LoadPicture(FilePath)機能ファイル/パスアクセスエラー
G_in_Sy 受付中
最終更新日:2021-04-29 05:04
2019年8月24日に報告されているとまったく同じ問題があります.
LoadPicture(FilePath)機能ファイル/パスアクセスエラー
vba.
LOADPICTURE(FILEPATH)関数は、パスが存在する場合でも、ファイル/パスアクセスエラーを返します.私は最近最新versionのWindowsに更新されました.私はWindowsversion1903を実行しています、OS Build 18362.356.
上記の投稿への返信の推奨ソリューションは、Uninstallkb4512508をuninstallkb4512508にして再インストールされていました.しかし、私のインストールを見て、私はknb4512508を持っていません
インストールされています.インストールされているWindowsの更新プログラムは、KB4514359、KB4515383、およびKB4515384と、Windowsとは関係ありません.
誰かがこれを私に与えることができるのを助けてくれて感謝します.
返信リスト(回答:2)
1 #
Anonymous
こんにちは、G_in_Sydney
大丈夫だといいのですが！
検証関数を使用して、ファイルが存在するかどうかを確認できます...
関数検索写真(文字列としてのパス、画像ボックスとしての画像)
薄暗いExists As String
'Exists指定したパスでファイルを検索します
Exists=Dir(path)
If There="" Then
'ファイルが見つからなかった場合は、デフォルトの画像を配置します
path="C:\Documents and Settings \César\Desktop\Block.jpg"
End if
image.picture=LoadPicture(path) '見つかった画像またはデフォルトの画像のパスを読み込みます...
終了関数
呼び出すには、
call search Photo(ファイルパス、使用するPicturebox名)のみを使用します
EJ:
call search Photo( "C:\foto.jpg"、写真1)
ご不便をおかけして申し訳ございませんが、他にご不明な点がございましたら、お気軽にお問い合わせください.
素晴らしい一日をお過ごしください.
大丈夫だといいのですが！
検証関数を使用して、ファイルが存在するかどうかを確認できます...
関数検索写真(文字列としてのパス、画像ボックスとしての画像)
薄暗いExists As String
'Exists指定したパスでファイルを検索します
Exists=Dir(path)
If There="" Then
'ファイルが見つからなかった場合は、デフォルトの画像を配置します
path="C:\Documents and Settings \César\Desktop\Block.jpg"
End if
image.picture=LoadPicture(path) '見つかった画像またはデフォルトの画像のパスを読み込みます...
終了関数
呼び出すには、
call search Photo(ファイルパス、使用するPicturebox名)のみを使用します
EJ:
call search Photo( "C:\foto.jpg"、写真1)
ご不便をおかけして申し訳ございませんが、他にご不明な点がございましたら、お気軽にお問い合わせください.
素晴らしい一日をお過ごしください.
応答1# ->にスキップ2 #Gキット
返信ありがとうございますが、私の質問を正しく読んでいないと思います.ファイルが存在し、私はすでにそれをチェックしています.私がリンクした元の投稿を読むと、問題が最近の問題に起因する問題としてマイクロソフトによって認識されていることがわかります
Windowsのアップグレード.KBがインストールされていないため、以前に提案されたソリューションを実装できません.おそらく、後でWindowsのversionをアップグレードしたためです.現在のOSBuild18362.356で更新されたソリューションを探しています.