Foto's in excel plaatsen met vaste hoogte en breedte

Status
Niet open voor verdere reacties.

Offthefield

Gebruiker
Lid geworden
27 apr 2005
Berichten
369
Ik wil in excel een aantal foto's plaatsen in hetzelfde formaat (qua hxb)-> De foto's hebben op zichzelf
andere formaten (hxb), ik doe dit met de volgende formule :

For Each sh In ActiveSheet.Shapes
If sh.Type = msoPicture Then sh.Delete
Next
'
'
With Sheets("PRINTEN4").Pictures.Insert("C:\DOCUMENTEN" + Text1.Text + ".jpg")
.Top = Sheets("PRINTEN4").[B8].Top
.Left = Sheets("PRINTEN4").[B8].Left
.Height = 178
.Width = 186

End With

Ik heb met .height en .width -> een vast formaat aangegeven, maar als de foto's op het werkblad komen,
zijn de formaten verschillend?

Hoe kan ik deze foto's allemaal op hetzelfde formaat krijgen en niet per foto de grootte handmatig moeten aanpassen?
 
Lukt mij niet om er een macro te maken, je kan wel in mijn geval de 4 afbeeldingen selecteren
de eigenschappen aanpassen, maar dat is op zich niet de bedoeling, de bedoeling is nl. dat de 4 afbeeldingen
in 1x hetzelfde formaat krijgt
 
Oh dat is jammer. Die macro's ken ik ook niet. Wacht op meer hulp.
 
Probeer het zo eens.
Code:
[COLOR=#0000ff] .ShapeRange.LockAspectRatio = msoFalse[/COLOR]
[COLOR=#3E3E3E] .Top = Sheets("PRINTEN4").[B8].Top[/COLOR]
[COLOR=#3E3E3E] .Left = Sheets("PRINTEN4").[B8].Left[/COLOR]
[B] .Height = 178
 .Width = 186[/B]
 
Het moet niet gekker worden, PERFECT!!!, ben ik van al die handmatige wijzigingen af
klasse hartelijk dank!
 
Ik doe dit zo:

Code:
Sub M_snb()
    For j = 1 To 4
        Sheet1.Shapes.AddPicture "G:\OF\" & Choose(j, "framboos", "appel", "peer", "aardbei") & ".jpg", 0, 1, Sheet1.Columns(3*j).Left, Sheet1.Rows(5 * j).Top, 120, 220
    Next
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan