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
Slike v excelu
Re: Slike v excelu
Pozdravljeni,
Vse slike lahko lepo obrnete s spodnim makrom (v makru vam slike obrne za 90 stopinj - sicerpa ustrezno popravite):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?
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
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!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.
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
Matjaž Prtenjak
Administrator
Pozdravljeni,
Višine vrstic (tako kot ste zapisali), lahko preprosto postavite s spodnjim makrom:
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
Matjaž Prtenjak
Administrator