Insertion / suppression d'images dans une "Zone image" en VB
Bonjour à tous,
Comme beaucoup, je suis débutant en vba...
J'ai chercher un peu partout ici et sur divers forum, j'ai, trouvé différentes choses, mais je n'ai pas réussi à les appliquer à mon cas.
Je suis bloquer dans ma programmation et j'aurais besoin d'un p'tit coup de main...
je réalise un système de gestion des devis...
Chaque devis est illustré par des images...
A prioris on ne peux pas insérer des images dans une celulle fusionnée...
Donc:
Existe-t-il un système de "Zone d'image" permettant de placer précisément l'image (à l'affichage et à l'impression) ?
J'ai 4 images à insérer à différent endroit, l'objectif est la même à chaque fois:
exemple :
J'ai en A1 le nom de l'image à insérer (exemple: monimage) resultant d'un liste de choix
et je voudrais à un endroit précis avoir une "Zone image" d'une dimension défini.
Action: quand la valeur de A1 change :
1- Effacer l'image présente, si il y en a une, dans la "Zone image"
2 - inserer l'image (dont le nom est en A1 en ajoutant .jpg) dans la "Zone image"
3 - ajuster (en gardant les proportions) et centrer l'image dans la "Zone image"
Voilà, j'espère avoir exposer clairement mon soucis, d'avance merci à tous pour votre aide...
Cordialement
Julius Vernus
qui galère avec le vba...
PS: Existe-t-il un site avec des tuto vidéo en français sur le VBA et/ou les macros ?
Bonjour,
Dans la mesure où tu poses la question, il faut que tu saches que la manipulation des Images se fait avec Shapes dans VBA ...et que cette manipulation d'images obéit à des règles légèrement différentes de celles dont tu as sans doute l'habitude ...
L'explication la plus simple de cette diffêrence est qu'il s'agit d'objets qui viennent se superposer à l'objet de base qui est la feuille Excel.
J'espère que cette explication est assee claire ...
Bonjour James,
Merci pour ta réponse,
Donc premier élément la "Zone image" c'est une shape, ok... super...
C'est un début de piste, je vais faire des recherche sur les shapes,
sinon
Quelqu'un aurait un bout de code à me donner pour la suite du problème s'il vous plait ?
D'avance merci
Re,
Pour clarifier les choses, ce que tu appelles la "Zone Image" ... n'existe pas ...
Par contre, ce qui va déterminer ton code VBA, c'est ce qui existe :
1. Ta feuille Excel avec ses cellules
2. Les Images (Shapes) que tu veux pouvoir placer à ceratins endroits de ta feuille ...
J'espère que cette explication est plus claire ...
Concernant, le bout de code ... que veux-tu comme exemple ?
Merci de ton aide James
Je comprends le fonctionnement donc les bouts de code que je cherche sont:
1 - afficher et placer un shape contenant mon image
2 - Effacer un shape (pour effacer l'image s'il y en a déjà une)
3 - Dimentionner mon image (ou mon shape ? je ne sais pas lequel on dois dimensionner ^^)
Merci d'avance
Julius
qui plus il avance dans le vba, moins il à de cheveux...
Re,
Pour commencer ...
Sub AjoutShapeCell()
Dim clLeft As Double
Dim clTop As Double
Dim clWidth As Double
Dim clHeight As Double
Dim cl As Range
Dim shpOval As Shape
Dim sh As Object
Set cl = Range("C2")
clLeft = cl.Left
clTop = cl.Top
clHeight = cl.Height
clWidth = cl.Width
Set sh = ActiveSheet.Shapes.AddShape(msoShapeOval, clLeft, clTop, 12, 44)
End Sub