Consulting

Results 1 to 3 of 3

Thread: Rename picture PowerPoint

  1. #1
    VBAX Newbie
    Joined
    Aug 2021
    Posts
    4
    Location

    Rename picture PowerPoint

    Good night, I'm new here...
    I have a doubt about vba PowerPoint. I have written a line of code that opens a picture obtained from my hard drive.

    Sub OpenPicture()
    Set MyDocument=ActivePresentation.Slides(1)
    MyDocument.Shapes.AddPicture Filename:="D:\User\Desktop\Prueba.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, Left:=100, Top:=100, Width:=270, Height:=270

    End Sub


    The code runs ok but the system gives a random name for the picture and
    ]I don't know how to rename it so I can manipulate it later.

    PS: Apologies for my English,

    Thank you very much for your help.

  2. #2
    VBAX Sage
    Joined
    Apr 2007
    Posts
    7,987
    Location
    Option Explicit
    
    
    Sub OpenPicture()
        Dim oSlide As Slide
        Dim oPicture As Shape
        
        Set oSlide = ActivePresentation.Slides(1)
        Set oPicture = oSlide.Shapes.AddPicture(FileName:="D:\User\Desktop\Prueba.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, Left:=100, Top:=100, Width:=270, Height:=270)
    
    
        oPicture.Name = "My Inserted Picture"
    End Sub
    Capture.JPG
    ---------------------------------------------------------------------------------------------------------------------

    Paul


    Remember: Tell us WHAT you want to do, not HOW you think you want to do it

    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

  3. #3
    VBAX Newbie
    Joined
    Aug 2021
    Posts
    4
    Location
    It's working!
    Thank you Paul!

Posting Permissions

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