Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 2 van 2

Onderwerp: Wat doet deze code precies?

  1. #1
    Vraag is niet opgelost

    Wat doet deze code precies?

    Kan iemand mij uitleggen wat deze code precies doet?


    Code:
    Sub inplakken()
      Range("C3").Select
        Sheets(60).Paste
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.IncrementTop 0.00007874015748
        Selection.ShapeRange.ScaleWidth 0.5161535594, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 0.2119922914, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 605
        Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 438
        Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 146
        Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 172
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.IncrementLeft 263.25
        Selection.ShapeRange.IncrementTop 11.7499212598
        Selection.ShapeRange.ScaleWidth 0.1582733813, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 0.7661298789, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 605
        Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 438
        Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 14
        Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 161
        Selection.ShapeRange.IncrementLeft -222.75
        Selection.ShapeRange.IncrementTop -6
        Selection.ShapeRange.ScaleWidth 1.7052604788, msoFalse, msoScaleFromBottomRight
        Selection.ShapeRange.ScaleHeight 1.7052612734, msoFalse, msoScaleFromTopLeft
        Range("C17").Select
        ActiveSheet.Paste
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.IncrementLeft 0.00007874015748
        Selection.ShapeRange.IncrementTop -85
        Selection.ShapeRange.ScaleWidth 0.514915781, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 0.9538403882, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 605
        Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 438
        Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 146
        Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = -10
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.IncrementLeft 263.9998425197
        Selection.ShapeRange.ScaleWidth 0.1538464062, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 0.172065543, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 605
        Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 438
        Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 14
        Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 163
        Selection.ShapeRange.IncrementLeft -229.5
        Selection.ShapeRange.IncrementTop -17.25
        Selection.ShapeRange.ScaleWidth 1.2499979495, msoFalse, msoScaleFromBottomRight
        Selection.ShapeRange.ScaleHeight 1.2499978128, msoFalse, msoScaleFromTopLeft
        Range("N6").Select
    
    End Sub

  2. #2
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    Dit is een opname van een macro-recorder.
    Hier worden heel veel standaard instellingen van een afbeelding? opnieuw ingesteld.
    Effectief zal er niet zoveel gebeuren.
    Het aanpassen van bv afmetingen van een afbeeldingen kan in een paar regels.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren