{"id":16865007,"url":"https://github.com/facorread/resetallslides","last_synced_at":"2026-01-04T12:05:34.213Z","repository":{"id":137342449,"uuid":"157785585","full_name":"facorread/resetAllSlides","owner":"facorread","description":"Removes all animations, sounds, transitions, and most format from all slides in a PowerPoint presentation","archived":false,"fork":false,"pushed_at":"2019-04-17T01:37:07.000Z","size":194,"stargazers_count":0,"open_issues_count":0,"forks_count":0,"subscribers_count":2,"default_branch":"master","last_synced_at":"2025-01-24T21:11:57.831Z","etag":null,"topics":[],"latest_commit_sha":null,"homepage":null,"language":null,"has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":"gpl-3.0","status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/facorread.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":"LICENSE","code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null}},"created_at":"2018-11-15T23:28:56.000Z","updated_at":"2019-04-17T01:37:09.000Z","dependencies_parsed_at":"2023-06-25T23:33:42.118Z","dependency_job_id":null,"html_url":"https://github.com/facorread/resetAllSlides","commit_stats":null,"previous_names":[],"tags_count":0,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/facorread%2FresetAllSlides","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/facorread%2FresetAllSlides/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/facorread%2FresetAllSlides/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/facorread%2FresetAllSlides/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/facorread","download_url":"https://codeload.github.com/facorread/resetAllSlides/tar.gz/refs/heads/master","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":244271007,"owners_count":20426484,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":[],"created_at":"2024-10-13T14:44:54.345Z","updated_at":"2026-01-04T12:05:34.102Z","avatar_url":"https://github.com/facorread.png","language":null,"funding_links":[],"categories":[],"sub_categories":[],"readme":"# resetAllSlides\n\nRemoves all transitions, sounds, videos, animations, pictures, and most format from all slides in a PowerPoint presentation\n\nCopyright (C) 2018 Fabio Correa correaduran.1@osu.edu\n\nThis PowerPoint macro-enabled presentation contains two procedures: (1) `resetAllSlides`, with the following effects on each and every one of the slides in your presentation:\n\n* Remove all slide transitions\n* Delete all media objects (sounds, videos)\n* Delete all animations\n* Set all text to Century Gothic regular\n* Remove any empty lines of text\n* Set all lines to 3pt solid white\n* Remove borders from all shapes except for tables\n\n(2) `removeAllPictures`, which removes all pictures from your presentation.\n\nMake a complete backup of each and every one of your documents before using any Office macros.\n\nNever open macro-enabled Office documents without making sure they come from a trusted source. Review them using PowerPoint Protected View and make sure you understand each and every instruction before you proceed any further.\n\nMake sure you have two open presentations only: Presentation macros, and your presentation in which you want to perform these operations.\n\nYour use of this file will result in loss of data for which only you will be responsible.\n\nYou have been warned!\n\n# Copy of the source code\n\n```vb\nSub resetAllSlides()\n  Dim I As Integer\n  Dim J As Integer\n  Dim K As Integer\n  Dim ContinueIteration As Boolean\n  With ActivePresentation ' In your presentation,\n    For I = .Fonts.Count To 1 Step -1 ' Count backwards because .Count changes\n      With .Fonts.Item(I)\n        .Name = \"Century Gothic\" ' Change all text format to Century Gothic regular white\n        .Bold = msoFalse\n        .Color.RGB = vbWhite\n      End With\n    Next I\n    For I = 1 To .Slides.Count ' For all slides,\n      With .Slides(I)\n        .SlideShowTransition.EntryEffect = ppEffectNone ' Remove the slide transition\n        ' .FollowMasterBackground = msoTrue ' Most probably unneccessary.\n        Do\n          ContinueIteration = False\n          For J = .Shapes.Count To 1 Step -1\n            With .Shapes(J)\n              If (.HasTextFrame) Then\n                If (.TextFrame2.HasText) Then\n                  With .TextFrame2.TextRange\n                    .ParagraphFormat.IndentLevel = 1 ' Format all paragraphs as first level with no indentation\n                    For K = .Lines.Count To 1 Step -1\n                      If (.Lines(K, 1).Text = vbCr) Then\n                        .Lines(K, 1).Delete ' Delete all empty lines\n                      End If\n                    Next K\n                  End With\n                End If\n              End If\n              Select Case .Type\n                Case msoMedia\n                  .Delete ' Delete all media objects altogether\n                Case msoLine\n                  .Line.ForeColor.RGB = vbWhite ' Set all shape lines to 3pt solid white\n                  .Line.Weight = 3\n                Case msoGroup\n                  .Ungroup\n                  ContinueIteration = True\n                  Exit For\n                Case msoTable, msoPlaceholder\n                Case Else\n                  If (.Line.Visible \u003c\u003e msoFalse) Then ' Only borders not previously marked as invisible\n                    .Line.Visible = msoFalse ' No border\n                  End If\n              End Select\n            End With\n          Next J\n        Loop While (ContinueIteration)\n        For J = .TimeLine.MainSequence.Count To 1 Step -1\n          .TimeLine.MainSequence(J).Delete ' Delete all animations\n        Next J\n      End With\n    Next I\n  End With\nEnd Sub\n\nSub removeAllPictures()\n  Dim I As Integer\n  Dim J As Integer\n  Dim K As Integer\n  Dim ContinueIteration As Boolean\n  With ActivePresentation ' In your presentation,\n    For I = 1 To .Slides.Count ' For all slides,\n      With .Slides(I)\n        '.Select ' Debug statement\n        .FollowMasterBackground = msoTrue\n        Do\n          ContinueIteration = False\n          For J = .Shapes.Count To 1 Step -1\n            With .Shapes(J)\n              '.Select ' Debug statement\n              'MsgBox (\"Shape type \" \u0026 .Type) ' Debug statement\n              Select Case .Type\n                Case msoPicture\n                  .Delete ' Delete picture\n                Case msoPlaceholder\n                  If (.PlaceholderFormat.ContainedType = msoPicture) Then\n                    .Delete ' Delete placeholder\n                  End If\n                Case msoGroup\n                  .Ungroup\n                  ContinueIteration = True\n                  Exit For\n              End Select\n            End With\n          Next J\n        Loop While (ContinueIteration)\n      End With\n    Next I\n  End With\nEnd Sub\n\n```\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Ffacorread%2Fresetallslides","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Ffacorread%2Fresetallslides","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Ffacorread%2Fresetallslides/lists"}