Příspěvky uživatele

Strana: 1 ... « předchozí 21 22 23 24 25 26 27 28 29 další »

Hromadná zmena 1 obrázka za 2. obrázok (7.11.2016 20:29)

Anymen napsal/a:

Chrobáčik, vlož si tam zamknutí stran.
With pic
.ShapeRange.LockAspectRatio = msoTrue
.Top = Cells(i, j).Top + 3
.Left = Cells(i, j).Left + 3
'atd.

prosím Ťa, kde všade to mám vložiť,aby to fungovalo, vložila som to iba sem a je to bez zmeny
Sub Test()

Const myPicName As String = "D:\meno\podklady\obrázky\2.jpg

Dim pic As Picture, i As Byte, j As Byte, w As Single, h As Single

For Each pic In ActiveSheet.Pictures

pic.Delete

Next pic

h = [A1].Height - 6

w = [A1].Width - 6

For i = 1 To 11

For j = 1 To 4

Set pic = ActiveSheet.Pictures.Insert(myPicName)

With pic

.ShapeRange.LockAspectRatio = msoTrue

.Top = Cells(i, j).Top + 3

.Left = Cells(i, j).Left + 3

If .Height > h Then .Height = h

If .Width <= w Then .Left = .Left + (w - .Width) / 2

If .Width > w Then .Width = w

If .Height <= h Then .Top = .Top + (h - .Height) / 2

End With

Next j

Next i

End Sub

Hromadná zmena 1 obrázka za 2. obrázok (7.11.2016 7:22)

AL napsal/a:

Žiadny nový súbor som nevytváral. Použil som tvoju prílohu, makro som písal priamo do nej.Příloha: 33351_obrazky.zip

Tak ja už neviem, kde je chyba, mne to deformuje. Nemôže to byť spôsobené nekompatibilitou officov?

Hromadná zmena 1 obrázka za 2. obrázok (6.11.2016 22:05)

AL napsal/a:

Mne nie.Příloha: 33348_printscreen.jpg

hmmm zaujimavé... tak potom neviem, kde je chyba

Mohol by si mi prosím poslať Tvoj súbor s týmto makrom? Že ako mi to bude zobrazovať? Či mi to bude deformovať, alebo nie?

Ďakujem za trpezlivosť.

Hromadná zmena 1 obrázka za 2. obrázok (6.11.2016 20:58)

AL napsal/a:

Môj kód obrázky nedeformuje, naopak zachováva pomer strán. Práve z toho dôvodu, že obrázky nie sú rovanko veľké.

Ako myslíš, nebudem sa s Tebou hádať, ale mne obrázok zdeformovalo.

Hromadná zmena 1 obrázka za 2. obrázok (6.11.2016 12:01)

AL napsal/a:

Tvoje vyjadrenie nie je presné. Výška, šírka a pozícia obrázkov je nastavená korektne. Ja som zmieňoval, že by to šlo v makre nastaviť na začiatku, mimo cyklus. Následný cyklus by potom bežal rýchlejšie.
Ešte poznámka: Pokiaľ mažeš príspevky, či ich časti, po tom, čo na ne bolo reagované, tak tie reakcie nedávajú zmysel. Každý má právo na omyl a samozrejme, so svojimi príspevkami si môžeš naložiť podľa vlastného uváženia. Mala by si však zvážiť, či tým z osôb, ktoré ti radia, nerobíš oslov. Môže sa ti potom ľahko stať, že na svoje otázky v budúcnosti už žiadnu odpoveď nedostaneš.

Ospravedlňujem sa - z nikoho nemienim robiť oslov.

Ešte k výške a širke, áno je to korektné, ale skôr ide o tú optimalizáciu (neviem, čo presne si mal pod ňou na mysli - ja deformáciu obrázkov) OK, všetko beriem, a išlo by to vyladiť, tak aby to tú šírku a výšku obrázka nedeformovalo? Snažila som sa nastaviť obrázkom maximálnu šírku a výšku 250x250. Ale keďže obrázky nie sú rovnakého tvaru, tak nie sú rovnako veľké.

Hromadná zmena 1 obrázka za 2. obrázok (6.11.2016 9:53)

Optimalizáciu behu som neriešil, funkčné to je. Stačilo by veľkosť obrázku a jeho pozíciu voči bunke nastaviť iba raz a potom už pracovať s takto zistenými hodnotami. Tým by sa to makro zrýchlilo, ale ide o blbosť, i takto to beží len pár sekúnd. Autorom tých ďalších makier v tom súbore, ktorý si poslala, asi nebudeš..

Super, takto mi to stačí... Nie samozrejme, nie som autorom makier. Neviem vytvoriť makro, iba ho nahrať, ale neviem ho upraviť. Skúšam to skôr metóda pokus-omyl. Ako si hovoril, chce to ešte sa pohrať s výškou a šírkou obrázku,inak je to super.

Geniálne, ďakujem.

Hromadná zmena 1 obrázka za 2. obrázok (6.11.2016 9:42)

Anonym napsal/a:

Ahoj! Tak kde chceš ty obrázky měnit, Formulář, nebo List?
Ve Formuláři stačí opakovat "LoadPicture", na Listu je třeba daný obrázek smazat a místo něj vytvořit nový (se domnívám).

Formulár bol skôr taký pokus, ako hovoríš, opakovať loadpicture stačí, ale zmení to obrázok v USEFORM a nie na liste, ja chcem, aby to menilo na liste. Možno to bol trochu zavádzajúce, ale zase som sa niečo nové naučila.

Hromadná zmena 1 obrázka za 2. obrázok (5.11.2016 22:00)

DOPLNENIE

Ospravedlňujem sa za zmazaný píspevok.
Skúšala som to cez USEFORM ale to nie to čo chem.

Počet zobrazených řádků (5.11.2016 20:19)

AL napsal/a:

Otazka neznela, akym sposobom filtrovat, ale ako spocitat pocet vyfiltrovanych zaznamov. Odpoved na otazku som uviedol.

aha jasné... počet... veď je to v názve... OK

Počet zobrazených řádků (5.11.2016 19:52)

AL napsal/a:

Prestuduj moznosti funkcie SUBTOTAL. Vobec nechapem, k comu by v tomto pripade mohli sluzit MIN a MAX, pokial by sa nemalo jednat o skutocne bizardny vzorec...

jasné, teraz som si uvedomila, že je to blbosť, keď som si vytvorila vzorový súbor....

ale vedela by som to vyfiltrovať funkciou väčší než nebo rovno A menší než nebo rovno ale keďže nevieme ako vyzerá súbor... je to len môj dohad, že by to šlo takto...

Počet zobrazených řádků (5.11.2016 19:37)

prilož vzorový súbor

Hromadná zmena 1 obrázka za 2. obrázok (5.11.2016 19:35)

Potrebujem hromadne zmeniť 1 obrázok za 2 obrázok z databázy.
Vo worde alebo v exceli (2003)
Ak existuje elegantnejšie riešenie v grafickom programe, prosím nasmerujte ma naň (najlepšie freeware, jednoduchý, v slovenčine, ale to chcem, asi veľa:))

cesta D:\meno\dokumenty\podklady\obrázky

Ďakujem

makro - vyfiltrované údaje (29.10.2016 9:31)

syd napsal/a:

Napr. zde.

sydPříloha: 33221_argumenty-syd.rar

Ďakujem super

makro - vyfiltrované údaje (27.10.2016 13:42)

V bunke C1 zadávam rok.
V stĺpci C sa mi vypočítava rozdiel medzi hodnotou
v bunke C1 a hodnotou v stĺpci B. Výsledná hodnota v stĺpci C udáva informáciu koľko rokov má pracovník v zvolenom roku na základe bunky C1.Makrom chcem docieliť to, že keď vyfiltrujem hodnotu v stĺpci C, ktorá je rovná a väčšia 50, tak sa vyfiltrovaný zoznam skopíruje na nový hárok s názvom ako je v bunke C1. Tak ako je to na hárku 2016. Viem si nahrať makro, ale neviem si ho upraviť pre moje potreby.

Mám excel 2003

Ďakujem

Tisk - počet kopií (22.10.2016 10:27)

pomôže?

http://office.lasakovi.com/excel/vba-listy-sheet/tisk-sesitu-ukazky-kodu-excel-vba/#seznam

http://office.lasakovi.com/excel/vba-triky/excel-vba-tisk-print/