InfosoftBG.com

Помощни програми за обработка на данни
Дата и час: Чет Дек 12, 2019 12:52 pm

Часовете са според зоната UTC + 2 часа




Напиши нова тема Отговори на тема  [ 1 мнение ] 
Автор Съобщение
МнениеПубликувано на: Пет Ное 15, 2019 2:05 pm 
Offline
Администратор
Аватар

Регистриран на: Пон Мар 07, 2016 8:42 pm
Мнения: 118
Този макрос служи за автоматично записване на всички диаграми създадени в ексел във формат на изображения, моля вградете си кода в макросите

като отделен модул, тестван е и работи коректно.

Как автоматично да конвертирате диаграми в работни таблици на Excel в различни формати на изображения с VBA.

Ето пълния код на VBA:

Код за потвърждение:
Sub ExportCharts()

Dim sht As Worksheet

Dim cht As ChartObject

Dim i As Integer

i = 1

Application.ScreenUpdating = False

Application.EnableEvents = False

Set sht = ActiveSheet

For Each sht In ActiveWorkbook.Worksheets

For Each cht In sht.ChartObjects

cht.Activate

ActiveChart.Export ActiveWorkbook.Path & "\" & sht.Name & "-" & i & ".gif"

i = i + 1

Next cht

i = 1

Next sht

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub


Върнете се в началото
 Профил  
Отговори с цитат  
Покажи мненията от миналия:  Сортирай по  
Напиши нова тема Отговори на тема  [ 1 мнение ] 

Часовете са според зоната UTC + 2 часа


Кой е на линия

Потребители разглеждащи този форум: 0 регистрирани и 1 госта


Вие не можете да пускате нови теми
Вие не можете да отговаряте на теми
Вие не можете да променяте собственото си мнение
Вие не можете да изтривате собствените си мнения
Вие не можете да прикачвате файл

Търсене:
Иди на:  
cron
Форума се задвижва от phpBB® Forum Software © phpBB Group
Преведено от yarnaudov.com