Добрый день, уважаемые знатоки.
Не могу понять почему не работает последняя строка макроса.
Задача следующая: при клике на ячейку, где будет прописан номер снимка, он должен открываться средствами просмотра фотографий Windows.
Пока не получается даже вставить снимок в Excel.
Пробовал следующую конструкцию, тоже ничего не получается.
Не могу понять почему не работает последняя строка макроса.
Задача следующая: при клике на ячейку, где будет прописан номер снимка, он должен открываться средствами просмотра фотографий Windows.
Пока не получается даже вставить снимок в Excel.
Пробовал следующую конструкцию, тоже ничего не получается.
| Код |
|---|
Shell "mspaint.exe strG", vbNormalFocus |
| Код |
|---|
Sub OpenFile1()
Dim strG As String
Dim strR As String
Dim strDirect As String
strDirect = "\\fs1\Shares\utr\ОККР\общая\FLIR\Температура конвертера\IR_"
strR = ActiveCell.Value
If Len(strR) <> 4 Then
MsgBox "Что-то тут не то..."
Exit Sub
End If
strG = strDirect & strR & ".jpg"
ActiveSheet.Pictures.Insert("\\fs1\Shares\utr\ОККР\общая\FLIR\Температура_конвертера\IR_6383.jpg").Select 'работает
ActiveSheet.Pictures.Insert(strG).Select 'не работает |
