Как я могу изменить изображение в Excel, используя макрос, который читает ячейку и сопоставляет ее с именем файла изображения? - PullRequest
Новая
       13

Как я могу изменить изображение в Excel, используя макрос, который читает ячейку и сопоставляет ее с именем файла изображения?

0 голосов
/ 10 апреля 2020

Моя идея - написать макрос, который назначается кнопке, которая делает то же самое, что и щелчок правой кнопкой мыши по изображению и использование «Изменить изображение ...», а затем использует информацию в ячейке, чтобы найти правильное изображение (Фамилия , firstname.jpg). Никогда прежде не работал с макросами Excel, вы можете себе представить мою дилемму.

Допустим, что все изображения хранятся по этому пути к файлу: C: \ MyLocalData \ hendrik.voelker \ Pictures \ Portraits

и все используют это соглашение об именах: LASTNAME, FIRSTNAME.JPG

Если бы кто-то мог помочь мне с этим вопросом, это было бы удивительно! Заранее спасибо.

ОБНОВЛЕНИЕ: теперь у меня есть следующий код для изображения элемента управления ActiveX: 

Sub New_Pic()
Dim strPath As String, strFile As String

strPath = "C:\MyLocalData\john.smith\Pictures\Portraits\"
strFile = Range("M15").Value & ".jpg"

If Len(Dir(strPath & strFile)) Then
    ActiveSheet.Image1.PictureSizeMode = fmPictureSizeModeZoom
    ActiveSheet.Image1.Picture = LoadPicture(strPath & strFile)
Else
    MsgBox strFile, vbExclamation, "Image Not Found"
End If

End Sub

Но изображение вставляется в пейзаж, а не желаемая книжная ориентация. Я также хотел бы черный бордюр. Есть идеи по этим двум вопросам?

...