Как настроить мой 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, отображающее валюту
  • Interesting Posts

    Клавиша Backspace выделяет текст вместо того, чтобы удалять его в Excel 2010 VBA combobox

    Изменение записанного макроса для динамического выбора значений поворота и их последующего отчета

    Время выполнения Ошибка 1004: Не удалось выполнить метод «Выбрать» для «Листов» объекта

    Почему OpenXML читает строки дважды

    Ошибка выполнения 9 в цикле

    Итерация через подпапки Outlook и входящие

    Добавление данных в защищенный паролем лист

    Почему этот файл всегда сохраняется как FALSE.xls?

    Не удается создать прямое подключение к Oracle Server (Excel)

    Получить данные диаграммы Excel из PowerPoint Slide (программно)

    Получить цену для Paypal, используя ссылочный номер

    Скопировать и вставить значение на другой рабочий лист VBA

    Передача массивов из функции Excel VBA в таблицу

    Как получить доступ к отдельным данным из объекта при чтении файла Excel с помощью EPPlus?

    Что касается выпуска даты в Excel

    Давайте будем гением компьютера.