Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

uredjivanje levog header-a u excel-u koriscenjem vba

[es] :: Office :: Excel :: uredjivanje levog header-a u excel-u koriscenjem vba

[ Pregleda: 1104 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

gogi100
Goran Ljubic

Član broj: 40722
Poruke: 1064
*.static.isp.telekom.rs.



+3 Profil

icon uredjivanje levog header-a u excel-u koriscenjem vba12.09.2018. u 07:33 - pre 67 meseci
imam sledeci kod u VBA

Code:
 With wsKarnet.PageSetup
                                      .LeftMargin = 0.2
                                      .RightMargin = 0.2
                                      .TopMargin = 110
                                      .FooterMargin = 0.4
                                      .HeaderMargin = 0.2
                                      .Orientation = xlLandscape
                                      .CenterHorizontally = True
                                      .PaperSize = xlPaperA4
                                      
                                      .LeftHeaderPicture.Filename = "D:\grb.jpg"
                                      .LeftHeaderPicture.Width = 20
                                      .LeftHeaderPicture.Height = 33
                                       .LeftHeader = "&G&10&""Times New Roman""" & Chr(13) & ToCiril(leviheader1) & Chr(13) & ToCiril(leviheader2) & Chr(13) & ToCiril(leviheader3) & Chr(13) & ToCiril(leviheader4) & Chr(13) & ""
                                      .CenterHeader = "&10&""Times New Roman""" & Chr(13) & Chr(13) & Chr(13) & ToCiril(centarheader1) & Chr(13) & ToCiril(centarheader2) & " " & ToCiril(sektor) & Chr(13) & ToCiril(centarheader3) & " " & ToCiril(mesec) & Chr(13) & ""
                                      .RightFooter = "&10&""Times New Roman""" & ToCiril(desnifooter) & Chr(13) & ToCiril(ovllice) & Chr(13) & ""
                                      .LeftFooter = "&10&""Times New Roman""" & ToCiril(levifooter) & Chr(13) & ToCiril(referent) & Chr(13) & ""
                                      .CenterFooter = "&7&""Times New Roman""" & ToCiril(centarfooter1) & Chr(13) & ToCiril(centarfooter2) & Chr(13) & ToCiril(centarfooter3) & Chr(13) & ToCiril(centarfooter4) & Chr(13) & ToCiril(centarfooter5) & Chr(13) & ToCiril(centarfooter6) & Chr(13) & ToCiril(centarfooter7) & Chr(13) & ToCiril(centarfooter8) & Chr(13) & ""
                                     
                                     '  .RightFooter = “Sheet: &A”
                  End With

kad ga primenim dobijam prikaz kao na slici zakacenoj uz mejl. Pitanje, da li postoji mogucnost da se slika odmakne od leve margine, recimo da bude na sredini? Isto tako i tekst?
Prikačeni fajlovi
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: uredjivanje levog header-a u excel-u koriscenjem vba12.09.2018. u 17:01 - pre 67 meseci
Probaj da kombinujes 'ShapeRange' osobine 'IncrementLeft' i sl. za sliku.

Slika je u MS Excel inace obican Shape objekat koliko se secam.

Ako je naziv slike u workbook 'Picture 1' onda neki kod bi bio kao primer:

Code:


    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.ShapeRange.IncrementLeft 377.25

ili

    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.ShapeRange.Left = 0
    Selection.ShapeRange.Top = 0




Moze to opet malo da se preradi i da se ne koristi Activesheet vec sheet kao lokalna promenljiva i sl.


 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: uredjivanje levog header-a u excel-u koriscenjem vba12.09.2018. u 17:08 - pre 67 meseci
Evo i stare VB6 fore koja moze da u Excel-u da se koristi.

f-ja postavlja prosledjeni oblik (shape) koji moze biti i slika na sredinu.

Code:


Public Sub ShapeMoveToCenter(ByRef ThisShape As Shape)

    With ThisShape
        .Left = ActiveWindow.VisibleRange(1).Left + (ActiveWindow.VisibleRange.Width / 2 - .Width / 2)
        .Top = ActiveWindow.VisibleRange(1).Top + (ActiveWindow.VisibleRange.Height / 2 - .Height / 2)
    End With

End Sub



Code:


' U korelaciji sa prethodnim postom gde shape/slika ima naziv 'Picture 1' i primer postavljanja na sredinu
ShapeMoveToCenter ActiveSheet.Shapes("Picture 1")

Prikačeni fajlovi
 
Odgovor na temu

gogi100
Goran Ljubic

Član broj: 40722
Poruke: 1064
*.static.isp.telekom.rs.



+3 Profil

icon Re: uredjivanje levog header-a u excel-u koriscenjem vba13.09.2018. u 06:33 - pre 67 meseci
Citat:
bokinet:
Probaj da kombinujes 'ShapeRange' osobine 'IncrementLeft' i sl. za sliku.

Slika je u MS Excel inace obican Shape objekat koliko se secam.

Ako je naziv slike u workbook 'Picture 1' onda neki kod bi bio kao primer:

Code:


    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.ShapeRange.IncrementLeft 377.25

ili

    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.ShapeRange.Left = 0
    Selection.ShapeRange.Top = 0




Moze to opet malo da se preradi i da se ne koristi Activesheet vec sheet kao lokalna promenljiva i sl.




jel ovo vazi iza levi header? i u njemu se slika tretira kao shape?
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: uredjivanje levog header-a u excel-u koriscenjem vba13.09.2018. u 07:01 - pre 67 meseci
Dobro jutro. Slika je shape ustvari te tako dati kod vazi za shape tj. oblik tj. sliku :)

Ako se hoce bas da bude header/footer onda ide nesto poput i tu mora malo da se poradi drugcije.

Evo za pocetak zanimanja sa vase strane oko toga kao smernice.

<Koji Sheet>.PageSetup.CenterHeaderPicture.Filename = "<putanja do file-a"

pa zatim

<Koji Sheet>.PageSetup.CenterHeader = "&G"

Na primer:

' Po sredini
Code:


    ActiveSheet.PageSetup.CenterHeaderPicture.Filename = "<fizicka putanja to slike koja ce se koristiti za zaglavlje na sredini>"
    ActiveSheet.PageSetup.CenterHeader = "&G"



' Levo
Code:


    ActiveSheet.PageSetup.LeftHeaderPicture.Filename = "<fizicka putanja to slike koja ce se koristiti za zaglavlje na levoj strani>"
    ActiveSheet.PageSetup.LeftHeader = "&G"

 
Odgovor na temu

gogi100
Goran Ljubic

Član broj: 40722
Poruke: 1064
*.static.isp.telekom.rs.



+3 Profil

icon Re: uredjivanje levog header-a u excel-u koriscenjem vba13.09.2018. u 07:50 - pre 67 meseci
Code:
 ActiveSheet.PageSetup.LeftHeaderPicture.Filename = "<fizicka putanja to slike koja ce se koristiti za zaglavlje na levoj strani>"
    ActiveSheet.PageSetup.LeftHeader = "&G"


Ok, to ja imam u kodu, ali kako sliku u levom headeru odmaknuti od leve ivice, trenutna slika je zakacena?
Prikačeni fajlovi
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: uredjivanje levog header-a u excel-u koriscenjem vba13.09.2018. u 08:42 - pre 67 meseci
Za sada dok ne pogledam po dokumentaciji, dodajte prazna mesta tj. space :)

Code:


    ActiveSheet.PageSetup.LeftHeader = "     &G"

    ' ili 

    ActiveSheet.PageSetup.LeftHeader = String(10, " ") & "&G"

 
Odgovor na temu

[es] :: Office :: Excel :: uredjivanje levog header-a u excel-u koriscenjem vba

[ Pregleda: 1104 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.