Új hozzászólás Aktív témák

• #43195 Alex123 senior tag Alex123 #43188

  Új Válasz 2020-03-07 09:21:33 #43195

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Alex123

  senior tag

  válasz Alex123 #43188 üzenetére

  "A képek kimentésekor pedig a kép neve a táblázat első két oszlopában (A, B) szereplő soronkénti szöveges rekord tartalma lenne..."
  
  Erre találtam már megoldást:
  Sub SaveImages()

    'the location to save all the images
    Const destFolder$ = "C:\users\...\desktop\"

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("sheet1")

    Dim ppt As Object, ps As Variant, slide As Variant

    Set ppt = CreateObject("PowerPoint.application")
    Set ps = ppt.presentations.Add
    Set slide = ps.slides.Add(1, 1)

    Dim shp As Shape, shpName$
    For Each shp In ws.Shapes
        shpName = destFolder & shp.TopLeftCell.Offset(1, 1) & ".png"
        shp.Copy
        With slide
            .Shapes.Paste
            .Shapes(.Shapes.Count).Export shpName, 2
            .Shapes(.Shapes.Count).Delete
        End With
    Next shp

    With ps
        .Saved = True
        .Close
    End With
    ppt.Quit
    Set ppt = Nothing

End Sub

  Már "csak" ezt a részét kellene megoldani:
  "magát a fejlécet és alatta az első sort jpeg (vagy más) kép formátumban, majd sorban a többi sort is léptetve hasonlóan: a fejlécet és hozzá a második sort, harmadik sort... szintén képként kimenteni és így tovább..."
  
  Van ötletetek?
  

Új hozzászólás Aktív témák