Pozdravljeni
Ponovno imam težave z vstavljanjem slike (z VBA-jem) - tokrat v Wordov dokument .
Prosim za pomoč.
Lep pozdrav
Vstavljanje slike (Word)
Recimo:
Koda: Izberi vse
Selection.InlineShapes.AddPicture FileName:="C:\slika.jpg", LinkToFile:= False, SaveWithDocument:=True
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
recimo kaj takšnega?
S tem, da Word vedno dela preko objekta Selection!
Koda: Izberi vse
Selection.InlineShapes(1).PictureFormat.CropRight = 217.08
Selection.InlineShapes(1).PictureFormat.CropBottom = 274.75
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
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?
Lp
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
Nekako sem se dokopal do tega, malo sam, malo pa s pomočjo neta:
Meni dela v office 2000!
Preizkusite in poročajte...
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
Preizkusite in poročajte...
lp,
cedra
cedra