1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| 'Redimensionnement de la colonne C :
With Workbooks(1).Sheets("BDD")
nbligne = .Cells(.Rows.Count, 1).End(xlUp).Row
Columns("C:C").ColumnWidth = 83
Range("C3:C" & nbligne).RowHeight = 146.25
End With
'Initialisation de la variable (numéro de cellule de la colonne C)
c = 2
'Redimensionnement des images au sein de chaque cellules de la colonne C (à partir de C3 jusqu'à nbligne)
For Each Img In Workbooks(1).Sheets("BDD").Shapes
c = c + 1
With Img
.LockAspectRatio = msoFalse
.Top = Workbooks(1).Sheets("BDD").Range("C" & c).Top
.Left = Workbooks(1).Sheets("BDD").Range("C" & c).Left
.Width = Workbooks(1).Sheets("BDD").Range("C" & c).Width
.Height = Workbooks(1).Sheets("BDD").Range("C" & c).Height
End With
Next Img |
