Возникли проблемы с заменой светящегося текстового формата с помощью VBA. - PullRequest
Новая
       7

Возникли проблемы с заменой светящегося текстового формата с помощью VBA.

0 голосов
/ 02 марта 2019

Для моей PowerPoint я намерен заменить весь текст светящимися в другой формат (без свечения с определенным цветом шрифта), но обычный метод замены для каждого текстового формата - перейти к переменной run с помощьюуказанный текст, который не поддерживает свечение, насколько я знаю.

Sub White2Black ()
Dim oSld As Slide
Dim oShp As Shape
Dim x As Long
Для каждого oSld In ActivePresentation.Slides
Для каждого oShp In oSld.Shapes
Если oShp.HasTextFrame Тогда
Если oShp.TextFrame.HasText Then
С oShp.TextFrame.Text.Runs.Count To 1 Step -1
Если IsNumeric (.Runs (x)) = True и .Runs (x) .Font.Color.RGB = RGB (255, 0, 0)
Тогда .Runs(x) .Font.Glowformat.Radius = 18
.Runs (x) .Font.Glowformat.Color.RGB = RGB (255, 240, 0)
.Runs (x) .Font.Glowformat.Transparency= 0,6
.Runs (x) .ont.Color.RGB = RGB (255, 255, 0)
Остальное
.Runs (x) .ont.Color.RGB = RGB (0, 0,0)
End If Next x

Конец с
Конец, если 'имеет текст Конец, если' имеет текстовый кадр 

Next oShp<br>

Далее oSld
Конец Sub

...