Диаграмма выбор с помощью ломтерезки:Excel VBA код - изменение легенды
Диаграмма без выбора слайсера:
Я делал эти графики с использованием двух различных сводных таблиц, но у меня было чтобы сделать некоторые поля вычислений, тогда я стал на статической таблице, чтобы сделать это! Графический номер 2 - тот, который я не использую для конкретного выбора слайсера, поэтому легенда правильная. Однако, когда я использую определенный выбор slicer, легенда остается, как вы можете видеть на графическом номере со следами, но без текста. Есть ли какой-либо код VBA, который я мог бы использовать для его исправления? Благодаря
Здесь вы можете найти справку по коду, которую вы уже сделали, и никто не выполнит эту работу с нуля. Попробуйте сделать что-то, показать нам, что вы сделали, и мы улучшим оттуда – stenci
- Sub mudar_range_price() - Dim SHT как рабочий лист - Набор SHT = Worksheets ("price_pivot") - Sheets ("price_pivot"). Активировать - дим я As Long - приглушение lastcol As Long - Для я = 1 To Columns.Count - Если клетки (129, г + 1) = .Text "-" Тогда - lastcol = я - i = 16384 - конец If - Следующий i .- Sheets ("цена") Активировать - ActiveSheet.ChartObjects ("цена") Активировать - ActiveChart.SeriesCollection (1) .Select - ActiveChart.SetSourceData Источник:. = sht.Range (sht.Cells (129, 1), sht.Cells (141, lastcol)) - End Sub() - Теперь он работает! Спасибо – brunorguima
Я рад, что вы нашли решение. Я часто нахожу ответ на свои вопросы, просто тратя время на то, чтобы написать вопрос. К тому времени, когда вопрос хорошо написан ... ответ есть. Если ваш код работает, вы можете ответить на свой вопрос, а не добавлять его в качестве комментария – stenci