Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment faire pivoter une image basée sur une valeur de cellule dans Excel?

Dans Excel, nous pouvons faire pivoter l'image en faisant glisser la souris, mais avez-vous déjà essayé de faire pivoter une image en fonction d'une valeur de cellule. Par exemple, l'image sera tournée par des degrés 90 si la valeur de la cellule est 90 dans la cellule A1 comme ci-dessous.
doc fait pivoter l'image par cellule 1

Faire pivoter une image en fonction de la valeur de la cellule avec le code de macro


Faire pivoter une image en fonction de la valeur de la cellule avec le code de macro


Seul un code de macro peut vous aider à faire pivoter une image basée sur une valeur de cellule dans Excel.

1. Tapez une valeur dans la cellule A1 vous allez faire pivoter l'image par, puis activer l'image que vous souhaitez faire pivoter.

2. presse Alt + F11 touches pour activer le Microsoft Visual Basic pour applications fenêtre, et cliquez insérer > Module insérer un nouveau blanc Module. Voir la capture d'écran:
doc fait pivoter l'image par cellule 2

3. Collez sous le code à la Module script, puis appuyez sur F5 pour exécuter le code. Voir la capture d'écran:

VBA: Rotation de l'image par la valeur de la cellule

Sub RotateImage()
Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value
End Sub

doc fait pivoter l'image par cellule 3
doc fait pivoter l'image par cellule 1

Remarque: Dans le code, A1 est la cellule sur laquelle vous souhaitez faire pivoter l'image, vous pouvez la modifier selon vos besoins.


Articles relatifs:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Haley · 11 months ago
    This is what I want to do to an image, but I want it to rotate from the vertical position by however many degrees the cell states each time. However, say the cell says 30, it will rotate 30 degrees, but then if the cell value changes to 15, it will rotate 15 from the 30 position (45 from the vertical). I want it to rotate 15 from the vertical this time. Is there a way to do this?


    Thanks!
    • To post as a guest, your comment is unpublished.
      Andrew · 4 months ago
      Take the code from above:

      Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

      And modify it like so:

      Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value
    • To post as a guest, your comment is unpublished.
      Jon H. · 9 months ago
      Hey there, I have the same requirement too. Have you by chance figured out how to have the image rotate from "zero" every time?
      • To post as a guest, your comment is unpublished.
        Sunny · 9 months ago
        Sorry I have no idea about this problem. You can place your prolem in out forum, maybe someone can help you solve it. https://www.extendoffice.com/forum.html
        • To post as a guest, your comment is unpublished.
          Andrew · 4 months ago
          Take the code from above:

          Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

          And modify it like so:

          Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value