problemes avec Shapes

[ElRagondindo]

J'essai d'aligner un ensemble de logos en jpg sur des cellules differentes

apparemment la commande shapes n'a pas l'air de fonctionner

ActiveSheet.Shapes.Range(Array(NomPic)).Top = Range(Lig, col).Top
ActiveSheet.Shapes.Range(Array(NomPic)).Right = Range(Lig, col).Right


J'ai une erreur Range de l'objet Global à échouer ???

JE mouline dans la choucroute sévère

Merci

ci dessous l'ensemble du code
Sub AlignPic()
Dim NomPic As String ' nom de l'image
Dim NumPic As Long ' numéro de l'image
Dim var As Long ' variable de comptage d'evolution de la macro
Dim col As Long ' variable de colonne
Dim Lig As Long ' variable de ligne
Dim i As Integer ' variable de boucle




NumPic = 4
NomPic = "Image " & NumPic ' nom de la première image

Application.ScreenUpdating = False ' blocage du rafraichissement des feuilles pendant la macro

Lig = 4 ' pointeur de cellule
col = 5

Do While NumPic < 1504

var = (NumPic / 1504) * 100 ' calcul de progression de la boucle

Application.StatusBar = "PROGRESSION : " & var & " % : VEUILLEZ PATIENTER" ' progression en % en bas de fenêtre
DoEvents

For i = 1 To 2 ' boucle traitement sur la même ligne

Sheets("feuil3").Select
ActiveSheet.Shapes.Range(Array(NomPic)).Top = Range(Lig, col).Top ' selectionner l'image
ActiveSheet.Shapes.Range(Array(NomPic)).Right = Range(Lig, col).Right



NumPic = NumPic + 1 'nouvel index d'image
col = 10
NomPic = "Image " & NumPic

Next

Lig = Lig + 4 ' saut de nouvelle ligne de cellules

Loop ' fermeture de boucle

Application.ScreenUpdating = True ' voir les maj de la feuille
Application.StatusBar = False ' fermeture de l'info de progression



End Sub

 

[Pierrot93]

Re : problemes avec Shapes

Bonjour,

regarde peut être ceci, à adapter :

With ActiveSheet
    .Shapes("NomDeLaForme").Top = .Range("A1").Top
End With

bon après midi
@+

 

[ElRagondindo]

Re : problemes avec Shapes

J'ai adapter à mon besoin comme suit

With ActiveSheet
.Shapes(NomPic).Top = .Range(Lig, col).Top
End With
With ActiveSheet
.Shapes(NomPic).Right = .Range(Lig, col).Right
End With

erreur definie par l'application ou par l'objet .....

 

[Pierrot93]

Re : problemes avec Shapes

Re,

remplace le "Range" par "Cells" si numéros de ligne et de colonnes contenus dans tes variables....

 

[ElRagondindo]

Re : problemes avec Shapes

With ActiveSheet
.Shapes(NomPic).Top = .Cells(Lig, col).Top
End With
With ActiveSheet
.Shapes(NomPic).Right = .Cells(Lig, col).Right
End With


erreur 438 ....

Grr vais perdre mes cheveux

je ne sais pas si c'est parce que j'adresse tout par des variables que ca merdouille je vais tester avec juste un objet

 

[Pierrot93]

Re : problemes avec Shapes

Re,

ceci fonctionne chez moi :

Dim lig As Long, col As Long, NomPic As String
lig = 3: col = 5: NomPic = "Rectangle 1"
With ActiveSheet
    .Shapes(NomPic).Top = .Cells(lig, col).Top
End With

 

[Pierrot93]

Re : problemes avec Shapes

Re,

A noter, plutôt la propriété "left" que "right" qui n'existe pas pour ces objets....

 

[ElRagondindo]

Re : problemes avec Shapes

Cela fonctionne avec left
Mais du coup je dois indexer la cellule copine pour que ca soit la ou je veux ...
merci bien Monsieur pierrot

 

[Pierrot93]

Re : problemes avec Shapes

Re,

fonction de ta feuille, peut être tout simplement avec un + 1, à voir....

.Cells(lig, col + 1).Left

 

[ElRagondindo]

Re : problemes avec Shapes

une question donc top existe , left , ok y a t'il d'autre coordonée dispo pour aligner sur une cellule?

Merci

 

[Pierrot93]

Re : problemes avec Shapes

Re,

une question donc top existe , left , ok y a t'il d'autre coordonée dispo pour aligner sur une cellule?

bah pour l'aligner sur une cellule, tu peux aussi te servir des propriétés "Width" et "Height", largeur et hauteur de la cellule...