[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『貼ってある画像が白くなる現象』(空井)
仕事で取引先からもらうExcelデータに貼られている画像が真っ白になってしまう現象について教えてください。
取引先からBOX Driveを経由してExcelデータを貰いダウンロードします、それを開くと中に貼ってある画像が真っ白になっています。
透明というわけではなく、リンク切れのバツ印がついてるわけでもなく、真っ白い四角いオブジェクトを貼っている感じです。
ちなみにBOX Drive上で閲覧した時点で既に画像は白くなっています。
うちの社員は全員同じ現象が起きていて、取引先は「見えてないのはお前の会社だけで他の会社はみんな画像が見えている」と言っています。
相手方のOSやExcelのバージョンなどは分かりません。
どうやらこのデータ、マクロが入っているみたいで、ThisWorkbookの所に
Private Sub Workbook_Open()
Dim Img As String Img = Sheet2.Cells(1, 1) If Img <> "" Then Sheet1.Shapes("Pic1").Select Sheet1.Shapes("Pic1").Fill.UserPicture (Img) Sheet2.Shapes("Pic1").Select Sheet2.Shapes("Pic1").Fill.UserPicture (Img) End If End Sub
こんな感じのコードが入っています。
(全部載せるのもどうかと思うので一部のみ載せています)
メモ書きによると2013年に作ったようです。
このマクロにあるPic1が見えない画像のようで、このマクロを使用して画像を貼った上でこちらに渡ってきているようです。
ちなみに、先方にExcelファイルを保存をし直してもらうと問題なく見えるようになるのでリンク切れとも違うみたいです。
毎回保存し直しを頼んでいるのでウンザリされています。
何か原因の心当たりはありますでしょうか?
< 使用 Excel:Excel2016、使用 OS:Windows10 >
社内のシステム環境の問題でしょうね。
(分からん) 2022/04/08(金) 10:20
# こちらのシステム環境という可能性のほか、
# 先方で作成に失敗しているという可能性はないこともないかも。
(γ) 2022/04/08(金) 22:45
(*)WEBページ(*.html,*htm)ファイルというものです。
(γ) 2022/04/08(金) 23:02
Y様
明るさの調整をしているものは見当たらないです
他にはApplication.ScreenUpdatingがあるくらいで…
htm形式で保存したところ、.filesフォルダの中身は真っ白の画像がいくつか入っていました。
(空井) 2022/04/09(土) 12:51
結論からいいますと私にはわかりません。
●御社としては単に受け取るだけですよね。
というのは、
・Sheet2.Cells(1, 1)は""になっているわけですよね。
・Openイベントプロシージャーは実質的には何もしていないわけでしょう?
・Explorerでシフトキーを押しながら開くと、マクロが動作せずに開きますが、それでも既に真っ白なわけですよね。
●画像はExcelに組み込まれているはずなので、
御社のシステム環境が影響するとしたら
Excelそのものに影響があるはずです。
何のメッセージも出ずに真っ白になるものでしょうか。
ということで、私の推測は、
もともとのファイルが既に真っ白なものになっているのではないか、
というものです。まあ、これも個人の勝手な憶測ですけれど。
力及ばずでした。
(γ) 2022/04/09(土) 13:34
いえ、ありがとうございます。
まさしく、Openイベントプロシージャーは動いていないですし、
マクロを作動させないようにしてから開いても結果は同じです。
こちらのExcelの設定の問題であれば他のファイルでも全体的に問題が起きていると思うので、
私も最初から真っ白なのではないかと疑っています。
一緒に考えていただきありがとうございました。
(空井) 2022/04/09(土) 14:18
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.