[ gogi100 @ 12.09.2018. 07:33 ] @
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?
[ bokinet @ 12.09.2018. 17:01 ] @
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.


[ bokinet @ 12.09.2018. 17:08 ] @
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")

[ gogi100 @ 13.09.2018. 06:33 ] @
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?
[ bokinet @ 13.09.2018. 07:01 ] @
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"

[ gogi100 @ 13.09.2018. 07:50 ] @
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?
[ bokinet @ 13.09.2018. 08:42 ] @
Za sada dok ne pogledam po dokumentaciji, dodajte prazna mesta tj. space :)

Code:


    ActiveSheet.PageSetup.LeftHeader = "     &G"

    ' ili 

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