Results 1 to 7 of 7
  1. #1
    ccj
    Guest

    Delete all logos at once

    Instead of using our company template with the logo inserted in the corner I have a user who manually inserts a logo on each page of a new template. When I try to apply our company template to this user's presentation, the logo already on the slide stays and our company logo is also inserted. Is there a way I can delete all the manually inserted logos at once so only the ones from the template will be displayed?

  2. #2
    Super Moderator WebGenii's Avatar
    Join Date
    Jan 2001
    Location
    Redcliff, Alberta, Canada
    Posts
    4,066
    Thanks
    2
    Thanked 5 Times in 5 Posts

    Re: Delete all logos at once

    I can not think of a way to do this. Try posting a link to this question on the VB/VBA board, perhaps a a VBA wizard will drop by and answer this question for all of us.
    [b]Catharine Richardson (WebGenii)
    WebGenii Home Page
    Moderator: Spreadsheets, Other MS Apps, Presentation Apps, Visual Basic for Apps, Windows Mobile

  3. #3
    ccj
    Guest

    Re: Delete all logos at once

    Thanks for the suggestion - I'll give it a try.

  4. #4
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Delete all logos at once

    CC, are you sure that the logo is on each slide and not just on the master? If it is on each slide, does the logo contain any unique text? Need some unique way to identify the object. --Sam (PPT/VBA wiz man)

    Sam Barrett, MTL Systems, Inc., mailto:sam@mtl.com
    Brainbench MVP, <A target="_blank" HREF=http://www.brainbench.com>http://www.brainbench.com</A>

    And the things that you have heard...commit these to faithful
    men who will be able to teach others also. 2 Timothy 2:2
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  5. #5
    ccj
    Guest

    Re: Delete all logos at once

    Unfortunately they are all separate additions - one to a slide. The only text on the logo is the company name. Deleting by company name however, would result in problems if the name is used in the presentation.

  6. #6
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Delete all logos at once

    CC, that means the only unique thing about the user's logo is it's location and size, so we'll use that. Here how to use the code below:

    1) Go to the first slide with the user's logo.
    2) Use the Tools, Macro, Record New Macro... menu to record a dummy macro:
    3) Press the OK button
    4) Select (click) the user's logo that you don't want
    5) Press the Stop Recording Button ( square button, not the x)
    6) Tools, Macro, Macros... menu
    7) Press the Edit button
    8) Replace all of the lines in the module with the code lines below
    9) Press <Alt> <F11> to return to Power Point
    10) Save the presentation
    11) Make sure the user's logo is still selected
    12) Tools, Macro, Macros... menu
    13) Press the Run button
    14) All of the user's logo's should be gone!
    15) Retrain the user ;o)

    Hope this helps! --Sam

    Sam Barrett, MTL Systems, Inc., mailto:sam@mtl.com
    Brainbench MVP, <A target="_blank" HREF=http://www.brainbench.com>http://www.brainbench.com</A>

    And the things that you have heard...commit these to faithful
    men who will be able to teach others also. 2 Timothy 2:2

    <pre>Option Explicit

    Sub Macro1()
    Dim uType As Integer
    Dim uLeft As Single, uWidth As Single
    Dim uTop As Single, uHeight As Single
    Dim sl As Slide, sh As Shape
    With ActiveWindow.Selection.ShapeRange ' Get user logo info
    uType = .Type
    uLeft = .Left - 0.1 * .Width ' Back off 10%
    uWidth = .Width
    uTop = .Top - 0.1 * .Height
    uHeight = .Height
    End With
    For Each sl In ActivePresentation.Slides
    For Each sh In sl.Shapes
    If sh.Type = uType And _
    sh.Left > uLeft And sh.Width = uWidth And _
    sh.Top > uTop And sh.Height = uHeight Then _
    sh.Delete
    Next sh
    Next sl
    End Sub
    </pre>

    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  7. #7
    ccj
    Guest

    Re: Delete all logos at once

    Thanks so much. I'll give this a try and let you know how it works out. Again, thanks for your help

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •