excel, návod, tipy, funkce, makra, vba, tabulky, šablony

Váš průvodce programem Microsoft Excel a programováním maker ve VBA

Příspěvky uživatele

< návrat zpět

Ja som sa zase sa dopátrala k tejto informácií, keď som riešila problém ako nastaviť 1 cm v exceli, kedže v exceli 2003 to nie je umožnené.

http://lorenc.info/3MA381/merne-jednotky-pravitka-excel.htm

Standardní rozměry buňky

Standardně se velikost buňky řídí nastaveným typem písma. Jde o velikost deseti nul zapsaných standardním písmem. V Excelu 2003 je to standardně Arial velikosti 10, v Excelu 2007 Calibri velikosti 11 (pokud si jako výchozí písmo zvolíme jiné písmo, upraví se podle něj i velikost buněk).

Výchozí šířka sloupce je 8,43 znaků (1,8 cm).
Minimální šířka sloupce je 0 (pak je sloupec skrytý) a maximální 254,86 znaků (50,3 cm)
Výchozí výška řádku je 12,75 bodů (0,45 cm pro Arial, 0,53 cm pro Calibri).
Minimální výška řádku je 0 (pak je řádek skrytý) a maximální 409,5 bodů (14,45 cm).

Převody mezi jednotkami

1 tiskový bod = 1/72 palce
1 palec = 2,54 cm
1 palec = 72 bodů
1 typografický bod = 0,375939849 mm
1 bod = 0,3528 mm
A4 = 297 x 210 mm

http://pc.poradna.net/q/view/38848-excel-sirka-a-vyska-bunky-v-milimetrech

http://www.dataspectrum.cz/pages/learning/learningmain.htm

možno to niekomu pomôže, ale toto je už MIMO TÉMY
Ešte raz, vďaka všetkým za pomoc.

geniálne... konečne je obrázok nedeformovaný, je väčší, resp. je rovnako veľký ako originál, keď sa vloží, ale konečne je nedeformovaný... paráda... obidve makrá sub meniť obrázok, aj sub meniť bunku fungujú rovnako..., funguje aj makro sub meniť obrázok2...

ďakujem veľmi pekne

Tak neviem, či to pomôže. Prišla som nato, že keď zväčším bunky, tak sa mi tam nakopíruje obrázok nezdeformovaný. Ale keď dám iný obrázok do rovnako veľkých buniek, tak sa zdeformuje. Jednoducho sa veľkosť obrázku prispôsobí bunke. Neviem ako zabezpečiť, aby sa bunka prispôsobila obrázku a nie naopak.

Tak konečne sa mi podarilo odkrokovať makro. A prišla som na toto.

v tomto kroku je obrázok OK
If .Height > h Then .Height = h

a v tomto kroku ho zdeformuje
If .Width <= w Then .Left = .Left + (w - .Width) / 2

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

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

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ť.

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

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é.

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.

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.

DOPLNENIE

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

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

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...

prilož vzorový súbor

Uživatelské menu

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje