Как настроить мой GIF, когда я запускаю пользовательскую форму? (VBA) ,

Моя диаграмма обновляется и отображается только в моей пользовательской форме, когда я нажимаю файл temp.gif на своем рабочем столе. Как я могу заставить его автоматически показывать себя, когда я запускаю код?

Это мой код:

Private Sub Image1_Click() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet") 'ws.ChartObjects("Chart 2").Chart.Activate Set CurrentChart = ws.ChartObjects("Chart 2").Chart Fname = ThisWorkbook.Path & "\temp.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" Image1.Picture = LoadPicture(Fname) End Sub

Sincerly,

Peyko.

Когда я запускаю ваш код, ничего не происходит с Image1 . Мне не удалось отобразить изображение, пока я еще не добавил код, попробуйте следующее:

 Private Sub Image1_Click() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet") 'ws.ChartObjects("Chart 2").Chart.Activate Set CurrentChart = ws.ChartObjects("Chart 2").Chart Fname = ThisWorkbook.Path & "\temp.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" With Image1 .Picture = LoadPicture(Fname) .PictureSizeMode = 1 'Stretch .PictureAlignment = 2 'Center .PictureTiling = False .SpecialEffect = 2 'Sunken End With End Sub

Ошибка функции USERFORM

Выбрать переменный объект с помощью счетчика

Имя пользователя из пользовательской формы

VBA- Итерирование по строковым значениям в массиве и идентификация, если они равны определенному тексту

отправка массовой электронной почты с помощью опции слияния из пользовательской формы vba

excel инициализирует «защищать / снимать защиту листа» с помощью пользовательской формы

Пользовательская форма VBA с DTPicker

vba сетка информации о пользовательской форме vba в ярлыке

Можете ли вы использовать оператор if, чтобы решить, в чем UserForm помещать информацию?

Автоматизировать идентификатор с помощью пользовательских записей - Excel

Текстовое поле VBA, отображающее валюту