Discussion :

[nicolas2162]

Bonjour j'essaye d'apprendre le vba depuis 2-3 jour pour coder un macro. malheureusement je n'y arrive pas et j'ai aucune expérience en programmation.
J'ai tout simplement besoin de deux macro

Premier macro
Copie l'image qui est dans le clipboard sur la slide selectionner a ces dimension la
Picture position width 43.61cm
Picture position Height 24.37cm
Picture position Offset X -13.09cm
Picture position Offset Y -5.1cm

Crop position witdth : 16.8cm
Crop position Height: 11.09cm
Crop position Left: 4.3cm
Crop position Top: 2.49cm

+ mettre en arrière place

Et

deuxieme macro macro : Copie l'image provenant d'un lien internet sur la slide selectionner aux meme dimension. mentionner plus haut

+ mettre en arrière place

Si je trouve ces macro, je vais sauver des heures par jour au boulot.

Merci d'avance!

[nicolas2162]

pour vous mettre en contexte

Je dois creer des brief de meteo pour different client partout au canada et envoyer des document powerpoint de 10-20 slides qui contiennent différentes images/position.

Je dois littéralement Copier/coller et mettre les même image a tous les jour pour chaque brief a la même dimension.

[nicolas2162]

bon jai trouver une partie

PictureFormat.Crop.PictureHeight =
PictureFormat.Crop.PictureWidth =
PictureFormat.Crop.PictureOffsetX =
PictureFormat.Crop.PictureOffsetY =
PictureFormat.Crop.ShapeHeight =
PictureFormat.Crop.ShapeWidth =
PictureFormat.Crop.ShapeLeft =
PictureFormat.Crop.ShapeTop =



Il manque l'option coller maintenant.

[nicolas2162]

Bon j'ai continuer mon travail et j'utilice ce code qui resize une image deja selectionner. Mon code fonctionne tres bien.
J'aimerais maintenant ajouter 2 chose.

1- Copier l'image a partir du presse papier
2- Effacer l'image qui va etre en dessous de cette nouvelle image coller (ceci va etre tout simplement une chart de la journee precedente que je dois enlever de toute facon)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Dim pp_width As Single
Dim pp_height As Single
Dim pp_offX As Single
Dim pp_offY As Single
Dim cp_width As Single
Dim cp_height As Single
Dim cp_left As Single
Dim cp_top As Single
 
'==========================================================================================
Sub analysis()
 
 
'La fonction positionne et crop l'image selectionnée en utilisant les paramètres suivants
 
'Picture Position
pp_width = 43.61    'Width (cm)
pp_height = 24.37   'Height (cm)
pp_offX = -13.09    'Offset X (cm)
pp_offY = -5.1      'Offset Y (cm)
 
'Crop position
cp_width = 16.8     'Width (cm)
cp_height = 11.09   'Height (cm)
cp_left = 4.3       'Left (cm)
cp_top = 2.49       'Top (cm)
 
With ActiveWindow.Selection.ShapeRange(1).PictureFormat.Crop
.PictureWidth = CmToPt(pp_width)
.PictureHeight = CmToPt(pp_height)
.ShapeWidth = CmToPt(cp_width)
.ShapeHeight = CmToPt(cp_height)
.ShapeLeft = CmToPt(cp_left)
.ShapeTop = CmToPt(cp_top)
'le Offset X et Y se font en dernier
.PictureOffsetX = CmToPt(pp_offX)
.PictureOffsetY = CmToPt(pp_offY)
End With
 
End Sub
'==========================================================================================
 
'==========================================================================================
Sub gfa1()
'La fonction positionne et crop l'image selectionnée en utilisant les paramètres suivants
 
'Picture Position
pp_width = 18.26    'Width (cm)
pp_height = 11.26   'Height (cm)
pp_offX = 0   'Offset X (cm)
pp_offY = 0      'Offset Y (cm)
 
'Crop position
cp_width = 18.26     'Width (cm)
cp_height = 11.26   'Height (cm)
cp_left = 3.66      'Left (cm)
cp_top = 2.22      'Top (cm)
 
With ActiveWindow.Selection.ShapeRange(1).PictureFormat.Crop
.PictureWidth = CmToPt(pp_width)
.PictureHeight = CmToPt(pp_height)
.ShapeWidth = CmToPt(cp_width)
.ShapeHeight = CmToPt(cp_height)
.ShapeLeft = CmToPt(cp_left)
.ShapeTop = CmToPt(cp_top)
'le Offset X et Y se font en dernier
.PictureOffsetX = CmToPt(pp_offX)
.PictureOffsetY = CmToPt(pp_offY)
End With
 
End Sub
'==========================================================================================
'Funjction Cemtimetre to Points
Function CmToPt(pt As Single) As Single
CmToPt = pt * 28.35
End Function