Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Ассассин
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Выделение всех подписей данных на диаграмме, Выделение всех подписей данных на диаграмме
 
#
09.02.2022 08:26:57
Цитата
желтым подсвечивает
Изменено: Ассассин - 09.02.2022 08:29:05
 
Перейти    
Выделение всех подписей данных на диаграмме, Выделение всех подписей данных на диаграмме
 
#
08.02.2022 20:11:29
Макрос ошибку выдает. Не могу понять почему. Шрифт, размер, формат меняет, а цвет не хочет.
 
Перейти    
Выделение всех подписей данных на диаграмме, Выделение всех подписей данных на диаграмме
 
#
08.02.2022 13:47:19
Спасибо, все работает, только цвет шрифта не меняет

Добавил цвет, но не получилось.  HELP!
Код
n.DataLabels.Format.TextFrame2.TextRange.Font.Color = Range("A14").Font.Color
 
Перейти    
Выделение всех подписей данных на диаграмме, Выделение всех подписей данных на диаграмме
 
#
07.02.2022 15:09:15
Благодарю за помощь.

Получилось так:
Код
Sub Макрос1()
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    For Each n In ActiveChart.FullSeriesCollection        
n.DataLabels.NumberFormat = "0,0%"        
With n.DataLabels.Format.TextFrame2.TextRange.Font            .
BaselineOffset = 0            
.Fill.Visible = msoTrue            
.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1            
.Fill.ForeColor.TintAndShade = 0            
.Fill.ForeColor.Brightness = 0            
.Fill.Transparency = 0            
.Fill.Solid            
.Size = 24            
.Name = "Calibri"        
End With    
NextEnd Sub
А реально сделать так,  что бы шрифт, цвет, формат подписей данных не в ручную в макросе менять, а данные брались по образцу, например с ячейки А1?
Изменено: Ассассин - 07.02.2022 19:17:48
 
Перейти    
Выделение всех подписей данных на диаграмме, Выделение всех подписей данных на диаграмме
 
#
07.02.2022 11:46:29
Спасибо. Я пробовал так, но почему то не получается.
Код
Sub Макрос1()
     ActiveSheet.ChartObjects("Диаграмма 1").Activate

     For Each n In ActiveChart.FullSeriesCollection.DataLabels.Select
         Selection.NumberFormat = "0,0%"
     Next
End Sub
Не поможете разобраться?
 
Перейти    
Выделение всех подписей данных на диаграмме, Выделение всех подписей данных на диаграмме
 
#
07.02.2022 10:34:45
Добрый день, Друзья!
Подскажите как можно выделить все подписи данных на всех рядах в диаграмме, для того что бы сразу на всех графиках изменить формат подписи.  
 
Перейти    
Очистить ячейку при условии
 
#
01.12.2021 20:37:22
Добрый день!
Существует ли функция для очистки ячейки при определенном условии, так как "пусто" не подходит для решения задачи.
Изменено: vikttur - 01.12.2021 20:45:57
 
Перейти    
Страницы: 1
Наверх