Hirdetés
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- sziku69: Szólánc.
- Meggyi001: Áram nélkül....méltóság nélkül.....
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- gban: Ingyen kellene, de tegnapra
- hcl: GPT diszk kisebbre klónozása
- D@reeo: OlvasóMester - vágólap felolvasó alkalmazás
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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...
-
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 SubMá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?
-
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? -
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 SubA 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!
-
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!
-
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!
-
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ímmelA 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
Fferi50- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Microsoft Office 2024 Home Business dobozos
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- HIBÁTLAN iPhone 13 128GB Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS4453, 100% Akksi
- ÁRGARANCIA! Épített KomPhone i5 10400F 16/32GB/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- Samsung PM9E1 "9100 PRO" 2TB M.2 NVME Gen5 x4 SSD! 14.000-12.500MB/s
- GYÖNYÖRŰ iPhone 13 Mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4066, 94% AKKSI
- Lenovo Thinkpad X1 Yoga 5th Gen. i7 10th, 16GB RAM 27% ÁFÁS (0329)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest