Slike v excelu

Pomoč pri delu z MS Excelom
Odgovori
rajc
Prispevkov: 8
Pridružen: Po Okt 17, 2005 7:40 pm

Slike v excelu

Odgovor Napisal/-a rajc »

Zdravo
Ce mi lahko kdo pomaga pri naslednjih dveh problemih bi bil zelo vesel.
V excelu dobim slike ki so zasukane (vcasih za 90 najveckrat pa 180 stopin) kako jih lahko na hitro postavim pokonci da mi ni potrebno klikati na vsako?
In drugi problem - ker imam vsako slikico v svoji vrstici bi rad imel prvih 5 stolpcev enako visoke kot so slike naslednje pa max 13 da bi lahko vpisal vec formul in koncu se rezultat - a excel to omogoca.
Lp
Rajcjavascript:emoticon(':oops:')
Embarassed
ngc2392
Prispevkov: 60
Pridružen: Ne Jul 31, 2005 12:37 pm
Kraj: kranj

Odgovor Napisal/-a ngc2392 »

hm, excel ni ravno urejevalnik slik. tako da ti za oba problema priporočam, da najprej v enem pravem urejevalniku slik urediš slike. tako postavitev, kot tudi velikost, da bodo vse enake.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Slike v excelu

Odgovor Napisal/-a admin »

Pozdravljeni,
rajc napisal/-a: V excelu dobim slike ki so zasukane (vcasih za 90 najveckrat pa 180 stopin) kako jih lahko na hitro postavim pokonci da mi ni potrebno klikati na vsako?
Vse slike lahko lepo obrnete s spodnim makrom (v makru vam slike obrne za 90 stopinj - sicerpa ustrezno popravite):

Koda: Izberi vse

' www.matjazev.net
' 20.02.2006
Sub ObrniSlike()
    Dim slika
    
    For Each slika In ActiveSheet.Shapes
        slika.IncrementRotation -90#
    Next
End Sub
rajc napisal/-a:In drugi problem - ker imam vsako slikico v svoji vrstici bi rad imel prvih 5 stolpcev enako visoke kot so slike naslednje pa max 13 da bi lahko vpisal vec formul in koncu se rezultat - a excel to omogoca.
Tega pa ne razumem??? Vsek kar je kolikor toliko jasno, je, da želite poenotiti višino slik. Spodnji makro vam vse slike postavi na izbrano velikost (trenutno 150 točk), s tem, da ustrezno popravi tudi širino vsake slike!

Koda: Izberi vse

' www.matjazev.net
' 20.02.2006
Sub VseSlikeNaIstoVisino()
    Dim slika
    
    For Each slika In ActiveSheet.Shapes
        slika.LockAspectRatio = msoTrue
        slika.Height = 150
    Next
End Sub
lp,
Matjaž Prtenjak
Administrator
rajc
Prispevkov: 8
Pridružen: Po Okt 17, 2005 7:40 pm

Odgovor Napisal/-a rajc »

Matjaz
HVALA
za problem st.2 je pa tako da bi v stolpcih od 1-6 imel rad visino 80 od 6stolpca naprej pa 25 - pa ne vem ce je to sploh mogoce.
LP
Rajc
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

Višine vrstic (tako kot ste zapisali), lahko preprosto postavite s spodnjim makrom:

Koda: Izberi vse

Sub PostaviVisineVrstic()
    Rows.RowHeight = 25
    Rows("1:6").RowHeight = 80
End Sub
lp,
Matjaž Prtenjak
Administrator
Odgovori