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

• #43237 Alex123 senior tag sztanozs #43229

  Új Válasz 2020-03-13 08:12:38 #43237

  Ú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 sztanozs #43229 üzenetére

  Szia!

  Na, valami ilyenre gondoltam...

  Kipróbáltam, a következő a gondom vele:
  - a sorokból konvertált képeket a táblázat alján egymásra dobálja, így nem tudom őket kimenteni, továbbá a konvertált képeknél előfordult, hogy pl. egy 10 soros táblázatból elkezdte a képpé átalakítást de valamiért a 3. 4. átalakított kép után ugyanazt a képet adta be csak a szövege változott, holott nem annak a képnek kellett volna szerepelnie benne és volt, hogy az ismétlődő, nem odaillő képből készített vagy 5-6 darabot is...
  Ezeknek a képeknek az aljánál meg látszódott egy alatta lévő sorban berakott kép részlete is...
  Ha hazaérek töltök fel képet belőle, hogy mi is a gondom még vele...
  Addig is köszönöm, ez lesz a járható út pici finomhangolással...

• #43218 Alex123 senior tag sztanozs #43213

  Új Válasz 2020-03-11 07:22:04 #43218

  Ú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 sztanozs #43213 üzenetére

  Nem...
  
  (sajnos nem találtam külföldi oldalakon sem megoldást rá...) Office 365
  

  Nincs senkinek sem ötlete?

• #43196 Alex123 senior tag Alex123 #43195

  Új Válasz 2020-03-08 10:54:02 #43196

  Ú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 #43195 üzenetére

  Tehát pl. ilyen az eredeti táblázat:
  
  
  És így kellene kiexportálni belőle képként:
  
  
  
  
  
  
  Várom az ötleteket, köszönöm.

• #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?
  

• #43188 Alex123 senior tag

  Új Válasz 2020-03-05 11:19:30 #43188

  Ú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

  Sziasztok!

  Adott egy excel táblázat, melynek a legfelső sorát "fixáltam", ez egy úgynevezett fejlécként szerepelne majd és ebből a következőket szeretném kiexportálni:
  
  - 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 és így tovább...
  
  Tehát egy több ezres táblázatból képeket szeretnék kimenteni úgy, hogy minden képnek a fejléc és az adott, soron következő sor lenne a tartalma.
  
  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...
  
  Lehet erre makrót írni?

• #38494 Alex123 senior tag Alex123 #38493

  Új Válasz 2018-07-09 14:01:20 #38494

  Ú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 #38493 üzenetére

  Megoldottam!!!

• #38493 Alex123 senior tag Alex123 #38492

  Új Válasz 2018-07-08 15:12:54 #38493

  Ú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 #38492 üzenetére

  Ezzel a kóddal ki tudom menteni a képeket:

  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

  A kép nevét át is nevezi a következőképpen (A oszlop 1 sor kép, B oszlop második sor a kép neve).
  Ez így tökéletesen működik is...

  DE:
  - azt hogyan tudom elérni, hogy a képek (az excel táblázatban kicsinyítve vannak) a valós, 100%-os méretükkel kerüljenek kimentésre?

  Várom az ötleteket, köszönöm!

• #38492 Alex123 senior tag Alex123 #38482

  Új Válasz 2018-07-08 14:46:04 #38492

  Ú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 #38482 üzenetére

  Addig eljutottam, hogy már "csak" a képeket kellene kiexportálni a táblázatból valahogyan, mert eddig amit letöltöttem plugint excel alá, az összekeverte a képek sorrendjét!

  Fontos lenne a sorrend, mivel kimentettem hozzá a két szöveges cella egyesítését, azzal pedig már át tudom nevezni a képeket a kívánt elnevezésre.

  Próbáltam web-es kimentést is belőle de az meg 1 képből van, hogy ment kettő, három különböző méretűt is... így megint csak válogatni kellene őket...

  A képek kimentésére van valahol "használható" plugin, kód, stb ?

  (a képek külön-külön sorokban vannak, soronként csak 1db szerepel.)

  Köszönöm ha tud valaki segíteni!

• #38482 Alex123 senior tag

  Új Válasz 2018-07-06 12:16:59 #38482

  Ú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

  Sziasztok!

  Kaptam egy Excel táblázatot benne több száz képpel, leírásokkal, stb.

  Amire szükségem lenne a következő:

  Soronként van két meghatározó mező (sorszám, cikkszám), a többi leírás, egyéb adatok nem kellenek és a sor végén van az adott termékről egy fotó.

  Ki kellene mentenem egyesével a képeket a táblázatból úgy, hogy ha van neki cikkszáma, akkor az legyen a kép neve, ha nincs neki cikkszáma, akkor a sorszáma legyen a kép neve.

  Tud ebben valaki segíteni, hogy merre induljak el?

  Előre is köszönöm!

• #3888 Alex123 senior tag Delila_1 #3887

  Új Válasz 2008-09-14 14:21:25 #3888

  Ú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 Delila_1 #3887 üzenetére

  Köszönöm!

• #3886 Alex123 senior tag

  Új Válasz 2008-09-14 12:11:10 #3886

  Ú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

  Sziasztok!

  Adott egy excell-es adathalmaz:

  - Az "A" oszlopban kb. 3000 e-mail címmel
  - A "B" oszlopban kb. 150 e-mail címmel

  A következő a kérdésem:

  Szeretném megvizsgálni, hogy a "B" oszlopban szereplő 150db cím szerepel-e az "A" oszlop 3000 címében és ha igen, akkor amelyik szerepel, azt törölni (kivonni) kellene az "A" oszlopból....

  (tehát ha A és B oszlop mutat pl. 42db megeggyező címet, akkor azt a 42db-ot törölni kellene az "A" oszlopból)

  Tudna Valaki segíteni?

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