Vstavljanje slike (Word)

Pomoč pri izdelavi makrov
Odgovori
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Vstavljanje slike (Word)

Odgovor Napisal/-a Stenly »

Pozdravljeni

Ponovno imam težave z vstavljanjem slike (z VBA-jem) - tokrat v Wordov dokument :cry: .
Prosim za pomoč.

Lep pozdrav
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Recimo:

Koda: Izberi vse

  Selection.InlineShapes.AddPicture FileName:="C:\slika.jpg", LinkToFile:= False, SaveWithDocument:=True
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Hvala za hiter odgovor.
To sem želel. Bi pa še prosil za dopolnitev pozicije na listu (ne na poziciji Select) in velikosti slike.
Lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

recimo kaj takšnega?

Koda: Izberi vse

  Selection.InlineShapes(1).PictureFormat.CropRight = 217.08
  Selection.InlineShapes(1).PictureFormat.CropBottom = 274.75
S tem, da Word vedno dela preko objekta Selection!
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Mislil sem nekaj takega, ampak to ni še to.

V Wordov dokument bi rad ob odprtju na točno določeno mesto (top, left) vstavil točno določeno sliko iz datoteke. Dobro pa bi bilo, če bi to sliko lahko tudi zumiral (height, width). V helpu sm našel nekaj takega, a se mi zatakne pri vstavljanju slike. Ne vem zakaj?

Koda: Izberi vse

Sub NewCanvasPicture()
    Dim shpCanvas As Shape

    'Add a drawing canvas to the active document
    Set shpCanvas = ActiveDocument.Shapes _
        .AddCanvas(Left:=100, Top:=75, _
        Width:=200, Height:=300)

    'Add a graphic to the drawing canvas
    shpCanvas.CanvasItems.AddPicture _
        FileName:="C:\Slika1", _
        LinkToFile:=False, SaveWithDocument:=True
End Sub
Lp
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Odgovor Napisal/-a cedra »

Nekako sem se dokopal do tega, malo sam, malo pa s pomočjo neta:

Koda: Izberi vse

Sub Vstavi_sliko()

    Me.Application.Selection.InlineShapes.AddPicture ("C:\Slika1.jpg")
    
    Dim oIshp As InlineShape
     For Each oIshp In ActiveDocument.InlineShapes
            With oIshp
                .ScaleHeight = 50
                .ScaleWidth = 50
            End With
        Next oIshp
    
End Sub
Meni dela v office 2000! :)
Preizkusite in poročajte...
lp,

cedra
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Obema se zahvaljujem za Trud. Zadevo sem nekako rešil. Imam pa težavo jaz, ker VBA v Wordu nisem kaj dosti uporabljal :oops: .

S tem nasvetom sem si bol na jasnem :!: :
S tem, da Word vedno dela preko objekta Selection!
Še enkrat hvala obema; :D Lp
Odgovori