Макрос для PowerPoint

@TataniK · Регистрация: 07.08.2015

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

Здравствуйте! Помогите пожалуйста с простеньким макросом. Пробовала перенести макрос с word, но не работает.
Суть макроса:

Есть выделенные фигуры с надписями, нужно что бы весь текст размещённый в фигурах (только в выделенных) сделался одинаковым по выравниванию (центр), шрифт (Arial, 11pt), надпись по размеру фигуры (подогнать размер фигуры под текст), левое и правое поле 0,1см, фон фигуры (сплошная заливка, белый с прозрачностью 0%)

Помогите пожалуйста, буду очень признательна.

@Dinoxromniy · 14.01.2022, 17:13

Сообщение от TataniK

нужно что бы весь текст размещённый в фигурах (только в выделенных) сделался одинаковым по выравниванию (центр), шрифт (Arial, 11pt),

код примерно такой:

Visual Basic

Sub hj()
Dim i As Integer
 
For i = 1 To Windows(1).Selection.ShapeRange.Count
   If Windows(1).Selection.ShapeRange(i).TextFrame.HasText Then
    Windows(1).Selection.ShapeRange(i).TextFrame.TextRange.Font.Name = "Arial"
    Windows(1).Selection.ShapeRange(i).TextFrame.TextRange.Font.Size = 11
    Windows(1).Selection.ShapeRange(i).TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
    
   End If
Next i
End Sub

Сообщение от TataniK

надпись по размеру фигуры (подогнать размер фигуры под текст), левое и правое поле 0,1см, фон фигуры (сплошная заливка, белый с прозрачностью 0%)

Я слабо знаю PP, приложите образец документа с фигурами как было и как надо.

@TataniK · 16.02.2022, 00:35 **[ТС]**

Спасибо огромное! Я уж и не думала, что кто-то ответит. Макрос отлично сработал! Вы очень помогли!

@TataniK 0 / 0 / 0 Регистрация: 07.08.2015 Сообщений: 25
		1
	Макрос для PowerPoint 12.01.2022, 21:16. Показов 1483. Ответов 2 Метки макрос, форматирование текста (Все метки) Здравствуйте! Помогите пожалуйста с простеньким макросом. Пробовала перенести макрос с word, но не работает. Суть макроса: Есть выделенные фигуры с надписями, нужно что бы весь текст размещённый в фигурах (только в выделенных) сделался одинаковым по выравниванию (центр), шрифт (Arial, 11pt), надпись по размеру фигуры (подогнать размер фигуры под текст), левое и правое поле 0,1см, фон фигуры (сплошная заливка, белый с прозрачностью 0%) Помогите пожалуйста, буду очень признательна. 0

@TataniK 0 / 0 / 0 Регистрация: 07.08.2015 Сообщений: 25
	16.02.2022, 00:35 [ТС]	3
	Спасибо огромное! Я уж и не думала, что кто-то ответит. Макрос отлично сработал! Вы очень помогли! 0

Опции темы

Макрос для PowerPoint

Решение