Insert and Edit picture 1

[TimTDP]

Using VBA, how do I insert, and edit, a picture in Word 2000.
(I will run the code from an Access 2000 form)

 

[SkipVought]

Hi,

Have you tried using the macro recorder?

Skip,

_{[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine!}

 

[TimTDP]

Yes I have but for some reason the macro recorder will not allow me to edit the picture!

 

[SkipVought]

What do you mean by EDIT? Does that mean opening a Graphic EDIT application (not in Word)?

Skip,

_{[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine!}

 

[TimTDP]

I need to:
change the height and width of the graphic
align it centrally.
set the layout to "Behind text"

 

[SkipVought]

That is not editing the picture. That's modifying the size and position properties.

So you already have code that Adds the object. It gets added as an InLineShape. Need to be changed to a Shape.

Here's how to FOOL Word in the Macro Record mode.

1) record adding the pic - turn off the recorder.

2) Select the pic, Format/Picture -- change the Layout to IN FORNT OF TEXT. OK to get out of format.

3) Turn on the recorder, Format/Picture -- change layout to BEHIND TEXT -- change the size and location. - turn off the recorder

Now observe your code and modify to suite.

Skip,

_{[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine!}

 

[TimTDP]

Thanks Skip

This is what I got:
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid


My code is like this:
With objWord.ActiveDocument.Bookmarks
.Item("PreparedFor").Range.Text = rst!PreparedFor
.Item("PreparedForAddress").Range.Text = rst!PreparedForAddress
.Item("GraphicFile").Range.InlineShapes.AddPicture "C:\Documents and Settings\Tim\My Documents\210.jpg", False, True

.Item("GraphicFile").Range.ShapeRange.Fill.Visible = msoFalse

The above line fails with run time error 424 - object required.

Can you help with the syntax?

 

[SkipVought]

    Dim oShp As Shape
'stuff    
    With objWord.ActiveDocument.Bookmarks
    .Item("PreparedFor").Range.Text = rst!PreparedFor
    .Item("PreparedForAddress").Range.Text = rst!PreparedForAddress
    Set oShp = .Item("GraphicFile").Range.InlineShapes.AddPicture("C:\Documents and Settings\Tim\My Documents\210.jpg", False, True)
    End With
        
    With oShp
        .Fill.Visible = msoFalse
        .Top = iTopPoints
    End With
'stuff
    Set oShp = Nothing

Skip,

_{[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine!}

 

[TimTDP]

Set oShp = .Item("GraphicFile").Range.InlineShapes.AddPicture("C:\Documents and Settings\Tim\My Documents\210.jpg", False, True)

returns a run time error 13 - type mismatch

 

[SkipVought]

Change the Dim statement to define an InLineShape

Skip,

_{[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine!}

 

[TimTDP]

A last question if I may:

how do I use the ZOrder msoSendBehindText

I have tried .ZOrder msoSendBehindText but get "Method or Data member not found" error message

 

[SkipVought]

First you must Convert the InLineShape to a Shape using the ConvertToShape Method.

Skip,

_{[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine!}