Добрый день! Подскажите пожалуйста возможно ли в excel создать документ в котором можно будет вставлять (автоматически, полуавтоматически) фотографии (из определенной папки) по определенным условиям (в определенные ячейки) и обновлять данные (нажав кнопу или совершив не большое кол-во действий). Пример файла во вложении.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Column > 1 And Target.Cells.Column < 5 And Target.Cells.Row > 1 Then
Dim Pu$
Cancel = True
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Add "Картинки", "*.gif; *.jpg; *.jpeg; *.png", 1
.Show
If .SelectedItems.Count > 0 Then Pu = .SelectedItems(1) Else: Exit Sub
End With
With ActiveSheet.Pictures.Insert(Pu)
If .Width > .Height Then
.Width = Target.Cells.Width
Else
.Height = Target.Cells.Height
End If
End With
End If
End Sub
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Alemox написал: Двойной клик по ячейке где должна быть картинка
Большое спасибо за помощь! Есть возможность сделать в полуавтоматическом формате, а именно в один клик (или выделять фотографии) загружать по 1 городу (1 строчка) не сколько магазинов (столбцы) ?
Пока что я не обладаю таким шаманством, чтобы в одном клике нести информацию о разных картинках, и местах их расположения в файле. Нужно больше информации.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.