Formaat afbeelding automatisch aanpassen aan celgrote.

[rozks]

Ik zoek in excel 2010 een functie die ingevoegde afbeeldingen automatisch aanpast aan de grote van de (samengevoegde) cellen waar ik op dat moment in sta.
Ik kan het niet vinden of kijk er overheen. ActiveX besturingsdelement 'afbeelding invoegen' biedt tot nogtoe ook geen soelaas.

 

[rozks]

Ik heb het inmiddels opgelost meteen macro, maar geef deze oplossing graag voor een betere.

 

[rozks]

Macro afbeelding aanpassen

Hallo Krisman,

Ben je bekend met de functie Macro in Excel?

 

[robdgr]

Ik heb het inmiddels opgelost met een macro, maar geef deze oplossing graag voor een betere.

Kun je die macro hier plaatsen? Daarmee kun je anderen weer helpen.

 

[rozks]

Macro afbeelding aanpassen

Bij deze:

Sub tekstveld()
'
' tekstveld Macro
' Voegt tekstveld in.
'

'
    ActiveCell.Range("A1:P2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -4.99893185216834E-02
        .PatternTintAndShade = 0
    End With
End Sub

Sub afbeeldingaanpassen()
'
' afbeeldingaanpassen Macro
' Vergroot of verkleint de afbeelding naar een breedte van 8,4 cm
'

'
    Selection.ShapeRange.Width = 238.1102362205
End Sub

 

[huijb]

@Krisman Je "pikt" iemand zijn vraag, hetgeen niet is toegestaan. Graag eigen vraag openen.

 

[huijb]

@rozks Voor je verder gaat lees dit even http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn

 

[rozks]

lees even dit .....

Hallo Huyb,

Mooie lap tekst maar wat wil je er mee zeggen?

 

[huijb]

De spelregels van deze sectie. Ik wil graag dat je dat tot je neemt.

 

[rozks]

spelregels

Beste Huijb,

Met alle respect, ik wil veel tot mij nemen maar het gaat niet lukken.
Met alle respect meen ik oprecht, want dat heb ik voor de mensen die deze website, al of niet betaald, in stand houden.
Maar ik zocht destijds alleen maar een oplossing met een probleempje waar ik toen mee zat.
Nu blijkt dat aan het gebruik van Helpmij.nl dusdanig veel spelregels vastzitten over het al of niet pikken van andermans vraag,
de wijze waarop topics geopend moet worden, de manier van elkaar aanspreken etc, etc,
dat ik denk een week op cursus te moeten om het onder de knie te krijgen.
Daar komt bij dat ik vind dat Helpmij.nl bepaald niet uitblinkt in overzichtelijkheid en gebruikersvriendelijkheid.
Ik ben het direct met je eens als je zegt dat er voor gebruikers bepaalde regels moeten gelden om de kwaliteit van de site te bewaken.
Maar ik heb het gevoel dat helpmij.ml hierin volledig is doorgeschoten.
Wat blijft is het respect voor jullie inspanningen.

Met vriendelijke groet,

Kees Rozema
0643098980
(Ik vermeld mijn tel,nr omdat ik vind dat kritiek uiten in dit soort situaties nooit anoniem mag.)