| Home Poczta Office Office2 Office 2000 Office XP Internet Explorer Outlook Express Outlook2 Windows XP Windows Windows Vista Exchange Server Windows Server SBS |
Proporcjonalna czcionka
Temat: Re: Jak ustawic taki sam rozmiar obrazkow?
Autor: Cynio Data: 27 Maj 2010
Odwołania: 1
Autor: Cynio Data: 27 Maj 2010
Odwołania: 1
On 27 Maj, 12:53, Grzegorz Prędki <"klark[USUN"@TO]
[malpa]transkomp.com> wrote:
> Witam
> Word 2003 - mam kilka/kilkanascie obrazkow w roznych rozmiarach. Wklejam
> je do dokumentu i chce je teraz wszytskie powiekszyc do tego samego
> rozmiaru. Da sie to zrobic "automatycznie" ?
uruchom edytor VBA (menu Narzędzia - makro - edytor Visual Basic)
wrzuć poniższy kod i uruchom makro (zakładam, że obrazy były dodawane
poprzez wstaw- obraz z pliku)
Sub zmiana_rozmiaru()
t = ActiveDocument.InlineShapes.Count
For i = 1 To t
ActiveDocument.InlineShapes(i).Height = docelowa_wysokosc
ActiveDocument.InlineShapes(i).Width = docelowa_szerokosc
Next i
End Sub
powinna zadziałać, jeśli nie to spróbuj poniższego makra
Sub zmiana_rozmiaru()
z = ActiveDocument.Shapes.Count
For i = 1 To z
ActiveDocument.Shapes(i).Height = 100
ActiveDocument.Shapes(i).Width = 100
Next i
End Sub
--
Pozdr.
Cynio
