Ciao a tutti
sto mettendo mano ad un codice VBA dopo il passaggio a Office 2010.
Il codice VBA ha lo scopo di raggruppare i documenti word in una cartella, ed uniformarne il layout per la scrittura mettendo su tutti lo stesso set di caratteri e l a stessa interlinea.
Purtroppo sui nuovi documenti mi ritrovo anche qualche immagine, passando attraverso la mia macro l'immagine passa in secondo piano e viene sovrascritta dalle altre righe. si intravvede a malapena.
Ho fatto diverse prove ed ho verificato che dovrei mettere dal click destro "testo a capo" e "sopra e sotto".
l'unico problema è tradurre tutto in VBA.
Googlando qua e la'
ho costruito questa macro:
Sub IMG()
'
' IMG Macro
'
'
For Each s In ActiveDocument.Shapes
If s.Type = msoPicture Then
s.ConvertToInlineShape
End If
Next s

Dim InS As InlineShape
For Each InS In ActiveDocument.InlineShapes
If InS.Type = wdInlineShapePicture Then
With InS.ConvertToShape

'POSIZIONE
.ZOrder msoBringInFrontOfText 'DAVANTI al testo

'LINEA BORDO
.Line.Weight = 1# ' 1 Pixel
.Line.DashStyle = msoLineSolid ' Stile
.Line.ForeColor.RGB = RGB(0, 0, 0) 'Nero
.Line.Visible = msoTrue

'BLOCCA PROPORZIONI
.LockAspectRatio = msoFalse 'msoTrue

'DIMENSIONI
'.Width = 300
'.Height = 200
End With
End If
Next InS
End Sub
ma il problema resta!!
come gli dico di fare il sopra sotto?