pellesoft.se

VBA - Bild

Postades av 2006-05-03 11:12:07 - Torfi Ingolfsson, i forum microsoft office, Tråden har 3 Kommentarer och lästs av 1257 personer

Om man med VBA i Word vill infoga en bild på visst ställe eller ändra egenskap på vald bild vilka funktioner och liknande skall man använda?

Svara

Sv: VBA - Bild

Postades av 2006-05-03 13:04:33 - Torfi Ingolfsson

Testade spela in ett macro och fick fram följande kod som jag modifierat lite....

Sub RezisePicture()
 
Dim StartSizeW, StartSizeH, RezisedW, RezisedH
 
StartSizeW = Selection.InlineShapes(1).Width
StartSizeH = Selection.InlineShapes(1).Height
 
RezisedW = StartSizeW * 0.65
RezisedH = StartSizeH * 0.65
 
With Selection.InlineShapes(1)
    .Height = RezisedH
    .Width = RezisedW
End With
 
End Sub

Svara

Sv:VBA - Bild

Postades av 2006-05-15 10:26:22 - Torfi Ingolfsson

När man klistrar in en bild så skalar Word den automatiskt, hur kan man få reda på hur stor den är vid 100%?

/T

Svara

Sv: VBA - Bild

Postades av 2006-05-16 10:50:44 - Torfi Ingolfsson

Kul att svara på sina egna inlägg.....

Googlade lite och hittade följande

'-------------------------------------------------
'Ändra storlek på skärmdump till 65%
'-------------------------------------------------
Sub RezisePicture()
Application.ScreenUpdating = False
 
If Selection.Type = wdSelectionInlineShape Then
 
With Selection.InlineShapes(1)
    .ScaleHeight = 65
    .ScaleWidth = 65
End With
 
End If
Application.ScreenUpdating = True
End Sub

Svara

VBA - Bild

Sv: VBA - Bild

Sv:VBA - Bild

Sv: VBA - Bild

Nyligen

Sidor

Statistik

Kontakta oss