I could be wrong, but I've been around Word a long time and I don't know of a .Style attribute for a picture. Your first error is because InlineShapes is a collection of the document.range object not the application object.
Select your picture with the "style" you like and run this:
Sub CopySelectedFormattingToRest()
Dim oILS As InlineShape
Dim lngWidth As Long, lngHeight As Long
Dim bPaint As Boolean
Dim oILSelected As InlineShape
Dim bSelectedPortrait As Boolean
Dim bFixAspect As Boolean
bPaint = False
If Selection.InlineShapes.Count = 1 Then
bPaint = True
Set oILSelected = Selection.InlineShapes(1)
lngHeight = oILSelected.Height
lngWidth = oILSelected.Width
If lngHeight > lngWidth Then bSelectedPortrait = True
With ActiveDocument.Range
For Each oILS In .InlineShapes
If oILS.Range.Start <> oILSelected.Range.Start Then
Select Case bSelectedPortrait
Case True
With oILS
If .Height > .Width Then
'This one is portrait too
PaintPictureFormat oILSelected, oILS
.LockAspectRatio = msoTrue
.Height = lngHeight
Else
PaintPictureFormat oILSelected, oILS
.LockAspectRatio = msoTrue
.Height = lngWidth
End If
End With
Case Else
With oILS
If .Width > .Height Then
'This one is landscape too
PaintPictureFormat oILSelected, oILS
.LockAspectRatio = msoTrue
.Height = lngHeight
Else
PaintPictureFormat oILSelected, oILS
.LockAspectRatio = msoTrue
.Height = lngWidth
End If
End With
End Select
End If
DoEvents
Application.ScreenRefresh
DoEvents
Next
End With
End If
lbl_Exit:
Exit Sub
End Sub
Sub PaintPictureFormat(ByRef oILS1 As InlineShape, oILS2 As InlineShape)
Dim lngPE As Long, lngParam As Long
'Select the reference inlineshape and copy formatting. This grabs most of the attributes (e.g., border, shadow, soften, etc.)
oILS1.Select
Selection.CopyFormat
'Select the target inlineshape and apply the formatting
oILS2.Select
Selection.PasteFormat
On Error Resume Next
'Clear all picture effects in the target shape.
For lngPE = oILS2.Fill.PictureEffects.Count To 1 Step -1
oILS2.Fill.PictureEffects.Item(lngPE).Delete
Next lngPE
'Apply picture effects of source ILS to target ILS
For lngPE = 1 To oILS1.Fill.PictureEffects.Count
'Insert the effect.
oILS2.Fill.PictureEffects.Insert oILS1.Fill.PictureEffects.Item(lngPE)
'Apply the effect parameters.
For lngParam = 1 To oILS1.Fill.PictureEffects.Item(lngPE).EffectParameters.Count
Debug.Print oILS1.Fill.PictureEffects.Item(lngPE).EffectParameters(lngParam).Name & " " & oILS1.Fill.PictureEffects.Item(lngPE).EffectParameters(lngParam).Value
oILS2.Fill.PictureEffects.Item(lngPE).EffectParameters(lngParam).Value = oILS1.Fill.PictureEffects.Item(lngPE).EffectParameters(lngParam).Value
Debug.Print oILS1.Fill.PictureEffects.Item(lngPE).EffectParameters(lngParam).Name & " " & oILS1.Fill.PictureEffects.Item(lngPE).EffectParameters(lngParam).Value
Next lngParam
Next lngPE
On Error GoTo 0
lbl_Exit:
Exit Sub
End Sub