Excelマクロはイメージを配置しますが、他の人がブックを開いたときに表示されません。

Question

私はインターネットで見つけられるものから、私の仕事のために巨大なマクロを一緒にまとめることを切望しています。最終的にレポートをフォーマットすることが目的です。

コードのこの部分は、セルから値を受け取り、指定されたフォルダ内の名前のついたイメージファイルを見つけてから、イメージを特定のセルに「挿入」します。

問題は、他の人がこれらのレポートを表示する必要がありますが、ブックを送信するときにイメージが表示されないということです。私はこれをどのように修正するのか分かりませんし、それは大したことです。あなたは、他の従業員が画像を見ることができるようにこれを行う方法を見つけ出すのを助けてください！私の仕事はそれに依存するかもしれません！問題はどこから来る:(

Dim pictureNameColumn As String 
Dim picturePasteColumn As String 
Dim pictureName As String 
Dim lastPictureRow As Long 
Dim pictureRow As Long 
Dim pathForPicture As String 
pictureNameColumn = "A" 
picturePasteColumn = "B" 
pictureRow = 4 
lastPictureRow = Cells(Rows.Count, pictureNameColumn).End(xlUp).Row 
pathForPicture = "C:\Users\desid\reportimages\" 
Do While (pictureRow <= lastPictureRow) 
pictureName = Cells(pictureRow, "A") 
If (pictureName <> vbNullString) Then 
If (Dir(pathForPicture & pictureName & ".jpg") <> vbNullString) Then 
Cells(pictureRow, picturePasteColumn).Select 
ActiveSheet.Pictures.Insert(pathForPicture & pictureName & ".jpg").Select 
With Selection 
.Left = Cells(pictureRow, picturePasteColumn).Left + 30 
.Top = Cells(pictureRow, picturePasteColumn).Top + 3 
.ShapeRange.LockAspectRatio = msoTrue 
.ShapeRange.Height = 90# 
.ShapeRange.Width = 90# 
.ShapeRange.Rotation = 0# 
End With 

Answer 1

ActiveSheet.Pictures.Insertで画像を挿入する代わりに、この方法で画像を埋め込むようにしてください。また、セルには文字が使用できないことに注意してください。また、問題の解決方法はありません。列名として「A」が1になるように列数が必要です。

Dim repPic as Shape 
Dim pictureNameColumn As Long 
Dim picturePasteColumn As Long 
Dim Lft as Single 
Dim Tp as Single 
Dim Wdth as Single 
Dim Hgth as Single 
pictureNameColumn = 1 
picturePasteColumn = 2 
Lft = Cells(pictureRow, picturePasteColumn).Left + 30 
Tp = Cells(pictureRow, picturePasteColumn).Top + 3 
Wdth = Cells(pictureRow, picturePasteColumn).Width 
Hgth = Cells(pictureRow, picturePasteColumn).Height 
Set repPic = Application.ActiveSheet.Shapes.AddPicture(pathForPicture & pictureName & ".jpg", False, True, Lft,Tp,Wdth,Hgth) 

これにより、画像をファイル自体に保存できます。この方法では、画像を挿入する瞬間に幅と高さを指定する必要があるため、wdthとhgthで画像のサイズをどのように調整するかを把握する必要があります。私の提案された解決策はコードにありますが、セットアップにはうまくいかないかもしれません。

ご希望の場合は、この回答に同意してください。がんばろう！

Answer 2

人々がマクロを実行する必要がある場合は、それは次のとおりです。filePathにはアクセスできない場合Falseを返します If (Dir(pathForPicture & pictureName & ".jpg") <> vbNullString)であなたの写真を入れて、パブリックフォルダを見つけてみ