Ridimensionare immagini in Word

[piercesl]

In un file che contiene molte immagini, è possibile, con un solo comando, ridimensionarle tutte, anziché agire su ognuna separatamente?

Preciso che le immagini hanno tutte la stessa dimensione di partenza e devono essere ridimensionate dello stesso fattore, quindi avranno anche la stessa dimensione finale (per questo mi serve ancor di più operare con un unico comando).

Grazie agli esperti!!!

[Alexsandra]

si è possibile farlo con una macro, devo fare delle prove

[Alexsandra]

copia questa macro in un modulo vba e lanciala.
ti comparirà un box in cui dovrai inserire la percentuale di riduzione delle immagini

Sub riduci11()
Dim dimensione As Integer, sha1 As InlineShape, sha2 As Shape
    
dimensione = InputBox("Inserisci la percentuale di riduzione", "Riduzione Immagine", 75)
    
For Each sha1 In ActiveDocument.InlineShapes
    With sha1
        .ScaleHeight = dimensione
        .ScaleWidth = dimensione
    End With
Next sha1
    
For Each sha2 In ActiveDocument.Shapes
    With sha2
        .ScaleHeight Factor:=(dimensione / 100), RelativeToOriginalSize:=msoCTrue
        .ScaleWidth Factor:=(dimensione / 100), RelativeToOriginalSize:=msoCTrue
    End With
Next sha2
End Sub

[piercesl]

Inviato da Alexsandra

copia questa macro in un modulo vba e lanciala.
ti comparirà un box in cui dovrai inserire la percentuale di riduzione delle immagini

Sub riduci11()
Dim dimensione As Integer, sha1 As InlineShape, sha2 As Shape
    
dimensione = InputBox("Inserisci la percentuale di riduzione", "Riduzione Immagine", 75)
    
For Each sha1 In ActiveDocument.InlineShapes
    With sha1
        .ScaleHeight = dimensione
        .ScaleWidth = dimensione
    End With
Next sha1
    
For Each sha2 In ActiveDocument.Shapes
    With sha2
        .ScaleHeight Factor:=(dimensione / 100), RelativeToOriginalSize:=msoCTrue
        .ScaleWidth Factor:=(dimensione / 100), RelativeToOriginalSize:=msoCTrue
    End With
Next sha2
End Sub

oh oh....
temo di non capirci un'acca....

Da dove comincio?
Mi sa che devo prima imparare cosa significa modulo vba...

Per favore, non vorrei tediare troppo: mi puoi indicare qualche risorsa per acquisire le conoscenze necessarie? Grazie....

[Alexsandra]

puoi seguire la mini guida che trovi quì
http://forum.wintricks.it/showthread...57#post1708557

se sei in difficoltà scrivilo quì sotto

[piercesl]

Inviato da Alexsandra

puoi seguire la mini guida che trovi quì
http://forum.wintricks.it/showthread...57#post1708557

se sei in difficoltà scrivilo quì sotto

Ok, ora mi è molto chiaro come fare ad inserire le istruzioni e creare una macro.

Ma.....

..... come si arriva a determinare le istruzioni da scrivere, ovvero a comprenderne il significato.... insomma a "parlare" quel linguaggio?
Ho la sensazione che si possano fare cose fantastiche, completamente precluse ad un utente "normale"

[Alexsandra]

Inviato da piercesl

..... come si arriva a determinare le istruzioni da scrivere, ovvero a comprenderne il significato.... insomma a "parlare" quel linguaggio?
Ho la sensazione che si possano fare cose fantastiche, completamente precluse ad un utente "normale"

puoi cominciare con questo corso intanto
http://forum.wintricks.it/showthread.php?t=155252

[LoryOne]

Inviato da piercesl

... come si arriva a determinare le istruzioni da scrivere, ovvero a comprenderne il significato.... insomma a "parlare" quel linguaggio?

Gran parte del codice prodotto viene automaticamente scritto dal registratore di macro, il quale crea una subroutine che contiene tutto il codice VBA relativo alle operazioni effettuate dall'utente fino a che egli stesso non blocca la registrazione. Per sfruttare la sequenza di codice incorporato, basta associarlo ad un evento nella pressione di un pulsante, ad esempio.
Capire esattamente cosa facciano le istruzioni non è difficilissimo, poichè il VBA è molto descrittivo.
La guida di Alexsandra è molto ben fatta, utilissima per i principianti, ma non esaustiva.
Dovrai integrare con l'aiuto in linea di Microsoft che per ogni istruzione fornisce anche esempi operativi.

[piercesl]

ok, mi metterò a studiare.

Grazie 1000!!!