Макрос для PowerPoint

@Li_Franz · Регистрация: 06.05.2024

Author24 — интернет-сервис помощи студентам

Добрый день, нужна помощь!
В презентации есть 40 слайдов, на каждом слайде 2 таблицы с некоторым количеством столбцов и строчек. Часть ячеек заполнены текстом с нижним подчеркиванием, часть ячеек в обычном формате.
Мне нужно снять это форматирование. Это возможно реализовать для всех слайдов?

@Narimanych · 06.05.2024, 16:39

Li_Franz,
Прикрепите файл с 2мя слайдами.

@Li_Franz · 06.05.2024, 17:24 **[ТС]**

Вот зип-папка, внутри преза

@Narimanych · 06.05.2024, 21:00

Li_Franz,

Для вашего файла попробуйте:

Visual Basic

Sub MMM()
    For Each sld In Application.ActivePresentation.Slides
        For Each sh In sld.Shapes
            If sh.Type = msoTable Then
                With sh.Table
                    For i = 1 To .Rows.Count
                        For j = 1 To .Columns.Count
                           .Cell(i, j).Shape.TextFrame.TextRange.Font.Bold = 0
                           .Cell(i, j).Shape.TextFrame.TextRange.Font.Underline = 0
                        Next
                    Next
                End With
            End If
        Next
    Next
   MsgBox "task complete"
End Sub

@Li_Franz 0 / 0 / 0 Регистрация: 06.05.2024 Сообщений: 2
		1
	Макрос для PowerPoint 06.05.2024, 16:33. Показов 345. Ответов 3 Метки powerpoint, макрос vba, презентация (Все метки) Добрый день, нужна помощь! В презентации есть 40 слайдов, на каждом слайде 2 таблицы с некоторым количеством столбцов и строчек. Часть ячеек заполнены текстом с нижним подчеркиванием, часть ячеек в обычном формате. Мне нужно снять это форматирование. Это возможно реализовать для всех слайдов? 0

@Narimanych 2741 / 1716 / 778 Регистрация: 23.03.2015 Сообщений: 5,433
	06.05.2024, 16:39	2
	Li_Franz, Прикрепите файл с 2мя слайдами. 0

	06.05.2024, 21:00