В настоящее время я пытаюсь выполнить замену всех в имени объекта в PowerPoint. Обычно каждый объект контента называется Content Placeholder #, я уже назвал каждый объект чем-то вроде «PptBobChart1, PptBobScatter1», и теперь мне нужно выполнить замену всех, чтобы изменить каждое из имен объектов на «PptTomChart1, PptTomScatter1». Я знаю, что я могу войти в область выбора по одному, чтобы вручную изменить ее, но есть ли способ сделать все это в VBA?Переименование объекта в PPT с помощью VBA
0
A
ответ
0
Вы могли бы попробовать что-то вроде:
Sub renameObj()
Dim o As Shape
Dim s As Slide
For Each s In ActivePresentation.Slides
For Each o In s.Shapes
o.Name = Replace(o.Name, "Bob", "Tom")
Next o
Next s
End Sub
Надеется, что это помогает!
0
Если вы хотите установить разные имена для типов объектов different01DEC2015, вы можете использовать это:
Option Explicit
' ============================================================
' PowerPoint Macro : RenameOnSlideObjects
' ============================================================
' Purpose : Renames all on-slide objects within a presentation
' Inputs : Noe
' Outputs : None
' Dependencies : None
' Author : Jamie Garroch of http://youpresent.co.uk/
' Date : 01 December 2015
' ============================================================
Public Sub RenameOnSlideObjects()
Dim oSld As Slide
Dim oShp As Shape
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
With oShp
Select Case True
Case .Type = msoPlaceholder ' you could then check the placeholder type too
.Name = "myPlaceholder"
Case .Type = msoTextBox
.Name = "myTextBox"
Case .Type = msoAutoShape
.Name = "myShape"
Case .Type = msoChart
.Name = "myChart"
Case .Type = msoTable
.Name = "myTable"
Case .Type = msoPicture
.Name = "myPicture"
Case .Type = msoSmartArt
.Name = "mySmartArt"
Case .Type = msoGroup ' you could then cycle though each shape in the group
.Name = "myGroup"
Case Else
.Name = "Unspecified Object"
End Select
End With
Next
Next
End Sub
Смежные вопросы
- 1. Переименование файлов с помощью VBA
- 2. Имена форм PPT VBA
- 3. Как удалить дополнительные пробелы в PPT с помощью VBA?
- 4. Как сделать объект неуправляемым в PPT с помощью VBA?
- 5. Boto3/S3: Переименование объекта с помощью copy_object
- 6. Как отступать bullet ppt vba
- 7. базовая диаграмма + название с помощью vba для ppt
- 8. Удаление личной информации из документа PPT с помощью VBA
- 9. Поместите графику в таблицу PPT, используя VBA
- 10. Переименование ключ пункта в коллекции с помощью VBA в Excel
- 11. переименование стилей Word с VBA
- 12. Переименование рабочего листа в VBA
- 13. Переименование диапазона в Excel VBA
- 14. Shapes.Type .... Удалить в Excel/PPT VBA
- 15. Вопрос о vba в PPT (Microsoft PowerPoint)
- 16. VBA для вставки диаграммы в слайд ppt
- 17. Размер массива SeriesCollection в PPT VBA
- 18. сохранение активной ppt как pptx в vba
- 19. Репликация объекта в powerpoint с помощью vba?
- 20. переименование нескольких листов из списка с помощью VBA
- 21. Изменение размера выделенного объекта в powerpoint с помощью vba
- 22. Переименование объекта File() в JavaScript
- 23. переименование таблиц excel с использованием vba
- 24. объекта недвижимости Переименование
- 25. Автоматическое закрытие PPT с использованием макроса в VBA
- 26. Значение ошибки вне диапазона, vba ppt
- 27. Excel VBA: Пакетное переименование листов
- 28. Заполнение объекта VBA с помощью HPC
- 29. Ошибка объекта VBA с помощью функции диапазона
- 30. Переименование массивов в excel vba при циклировании