Друзья!!!! Большая просьба....
Поможите чуток мне сделать в програмке, так чтобы при прикреплении файла, его иконка была вставлена в ячейку и не вылазила за пределы ее.
Поможите чуток мне сделать в програмке, так чтобы при прикреплении файла, его иконка была вставлена в ячейку и не вылазила за пределы ее.
| Код |
|---|
Sub Кнопка2_Щелчок()
avFiles = Application.GetOpenFilename _
("All files(*.*),*.*", 1, "Выбрать файлы", , True)
If VarType(avFiles) = vbBoolean Then
Exit Sub
End If
ActiveSheet.OLEObjects.Add Filename:=avFiles, Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{90140000-0011-0000-1000-0000000FF1CE}\xlicons.exe", _
IconIndex:=0, IconLabel:=avFiles
End Sub
|
