L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Mettre une ombre translucide et 1 bordure

Imprimer E-mail
5 mars 2014
Sub BordOmbr()
    With Selection.ShapeRange
'attribue une couleur de bordure
'cette couleur est calculé à partir d'un mélange de Rouge, Vert, Bleu
'grâce à RGB(Rouge, Vert, Bleu), chacune de ces couleurs peuvent prendre
'la valeur 0 à 255 .Line.ForeColor.RGB = RGB(0, 102, 51) 'bordure visible
.Line.Visible = msoTrue
'ajout d'une ombre
.Shadow.Type = msoShadow14
'transparence de l'ombre entre 0 (opaque) et 1 (transparent)
.Shadow.Transparency = 0.5
End With
End Sub

Ancrer une image (ou dessin) sélectionné

Imprimer E-mail
5 mars 2014
Sub AncrerObjet()
'l'ancrage est l'inverse de celui existant
'ainsi la même commande sert à passer du statut "ancré" à "non ancré"
' et du statut "non ancré" à "ancré"
Selection.ShapeRange.LockAnchor = Not Selection.ShapeRange.LockAnchor
End Sub