Hirdetés
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- drsanya: Simsonn Plus X pedálszett beszámoló vagy “teszt” egy szimulátoros szemével
- Luck Dragon: Asszociációs játék. :)
- hcl: Amúgy mi a terv?
- eBay-es kütyük kis pénzért
- GoodSpeed: Te hány éves vagy?
- Meggyi001: Amire figyelned kell Párizsban is...
- GoodSpeed: Ebes, a megtervezett falu!
- GoodSpeed: Munkaügyi helyzet Hajdú-Biharban: észak és dél
-
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- PC Game Pass előfizetés
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Telefon felvásárlás!! Xiaomi Redmi Note 10, Xiaomi Redmi Note 10s, Xiaomi Redmi Note 10 Pro
- Lenovo magyar laptop billentyűzetre van szükséged? Akármelyik verzióban segítünk!
- Beszámítás! Acer Predator Helios Neo 16 notebook-i9 14900HX 16GB DDR5 1TB SSD RTX 4060 8GB W11
- GYÖNYÖRŰ iPhone 13 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3963
- Eladó One Plus Nord 2T 5G 8/128GB / 12 hó jótállás
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest