How do I change the format picture defaults

[dbushway]

I created constintly documents with screen shots. On each and every "picture" I have to go into "Format Picture" and change the layout settings. Is there a way to change the default settings in this area to my preferences?

Duane R. Bushway
IT Specialist
US Food and Drug Administation,
Office of the General Counsel

 

[SkipVought]

Duane

This is the sort of thing that a macro is good for. Turn on your macro recorder, import a PIC and change the properties that you desire.

Then copy the code that was recorded and post back, and we'll help you make it work.

Skip,
[sub]
[red]Be advised:[/red]When Viscounts were guillotined just as they were disclosing where their jewels were hidden, it shows to go that you should...
Never hatchet your Counts before they chicken! [/sub]

 

[SkipVought]

Also, what application are you using?

Skip,
[sub]
[red]Be advised:[/red]When Viscounts were guillotined just as they were disclosing where their jewels were hidden, it shows to go that you should...
Never hatchet your Counts before they chicken! [/sub]

 

[dbushway]

Opps... sorry, I'm using Word 2000. I'll get back to you with the code (hopefully) today. Thanks so much for your quick reply.

Duane R. Bushway
IT Specialist
US Food and Drug Administation,
Office of the General Counsel

 

[SkipVought]

Keep in mind that in Word, there are Inline Shapes and Shapes. New PICs are Inline Shapes -- anchored to the insertion point.

Skip,
[sub]
[red]Be advised:[/red]When Viscounts were guillotined just as they were disclosing where their jewels were hidden, it shows to go that you should...
Never hatchet your Counts before they chicken! [/sub]

 

[dbushway]

The "pictures" that I use the most are screen shots.. I'm assuming that they are "inline" shapes, but not sure.

Duane R. Bushway
IT Specialist
US Food and Drug Administation,
Office of the General Counsel

 

[SkipVought]

When you Format/Picture - Layout Tab...

you will see.

Skip,
[sub]
[red]Be advised:[/red]When Viscounts were guillotined just as they were disclosing where their jewels were hidden, it shows to go that you should...
Never hatchet your Counts before they chicken! [/sub]

 

[dbushway]

Tried the macro thing... didn't work.. I inserted a pic, started the macro recorder it limited me as to what options I could select from the "picture" toolbar. I couldn't change the "wrapping style" or the "horizontal alignment" and couldn't go into the advanced area.

I'm guessing that there just isn't an easy way to change the defaulted settings in this area. It's just a pain to have to drill down in this menu and change the settings for each screen shot.

Duane R. Bushway
IT Specialist
US Food and Drug Administation,
Office of the General Counsel

 

[SkipVought]

how 'bout this...

Sub Macro2()
    Dim shp As Shape
    
    Set shp = ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).ConvertToShape
            
    With shp
        With .Fill
            .Visible = msoFalse
            .Transparency = 0#
        End With
        With .Line
            .Weight = 0.75
            .Transparency = 0#
            .Visible = msoFalse
        End With
        .LockAspectRatio = msoTrue
        .Height = 144#
        .Width = 178.55
        With .PictureFormat
            .Brightness = 0.5
            .Contrast = 0.5
            .ColorType = msoPictureAutomatic
            .CropLeft = 0#
            .CropRight = 0#
            .CropTop = 0#
            .CropBottom = 0#
        End With
    End With
End Sub

Skip,
[sub]
[red]Be advised:[/red]When Viscounts were guillotined just as they were disclosing where their jewels were hidden, it shows to go that you should...
Never hatchet your Counts before they chicken! [/sub]