+ Reply to Thread
Results 1 to 3 of 3

Copy paste 2 pictures to via VBA to Powerpoint

  1. #1
    Registered User
    Join Date
    06-11-2020
    Location
    Portugal
    MS-Off Ver
    2016
    Posts
    7

    Copy paste 2 pictures to via VBA to Powerpoint

    Hello to all,

    Im using VBA to export Excel data (Data + Pictures) to PowerPoint.
    My issue is that, during procedure of copying pictures (2 pictures), those are being pasted on top of each other.

    Code that is being used is:


    Sub Copy_Shapes()
    Dim sh As Shape, arrShapes() As Variant, i As Long
    ReDim arrShapes(1 To ActiveSheet.Shapes.Count)For Each sh In ActiveSheet.Shapes

    If Not Intersect(sh.TopLeftCell, ActiveCell.EntireRow) Is Nothing Then
    i = i + 1
    arrShapes(i) = sh.Name
    End If
    Next sh

    ActiveSheet.Shapes.Range(arrShapes).Select
    Selection.Copy

    Set Slide = App.ActivePresentation.Slides(1)
    With Slide.Shapes.PasteSpecial(ppPasteMetafilePicture)
    .Left = 24#
    .Top = 331
    .Height = 130#
    .Width = 281#
    .Height = 140#
    .Name = "issueFoto1"
    If .Height > 156# Then .Height = 156#
    .Line.ForeColor.ObjectThemeColor = msoThemeColorText0
    .ZOrder msoSendToBack
    End With

    Anyone can help?

    Thanks in advance

    LS

  2. #2
    Registered User
    Join Date
    06-11-2020
    Location
    Portugal
    MS-Off Ver
    2016
    Posts
    7

    Re: Copy paste 2 pictures to via VBA to Powerpoint

    Any sugestions?

  3. #3
    Registered User
    Join Date
    06-11-2020
    Location
    Portugal
    MS-Off Ver
    2016
    Posts
    7

    Re: Copy paste 2 pictures to via VBA to Powerpoint

    No ideas?... 😔

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Copy paste icons/pictures
    By s.stanton in forum Excel Programming / VBA / Macros
    Replies: 7
    Last Post: 04-02-2020, 12:22 PM
  2. Copy and Paste different objects to PowerPoint
    By bgsmith315 in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 07-31-2018, 01:19 PM
  3. Replies: 3
    Last Post: 01-19-2018, 09:17 AM
  4. [SOLVED] Copy paste pictures into cells
    By stberger in forum Excel Programming / VBA / Macros
    Replies: 3
    Last Post: 03-04-2017, 05:33 AM
  5. Replies: 1
    Last Post: 12-03-2016, 07:43 AM
  6. copy pictures from an excel sheet to powerpoint
    By katto01 in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 12-31-2013, 09:59 AM
  7. Copy and paste formulas and pictures
    By kadams99 in forum Excel General
    Replies: 3
    Last Post: 03-21-2011, 07:34 PM

Tags for this Thread

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1