Reply to thread

Message: [QUOTE="Joergen Bondesen, post: 6316907"] Hi Peter. I'm using Excel 2007 (Danish). I have tryed Excel 2003 (UK) no Button. Below works (only Test) Option Explicit '---------------------------------------------------------- ' Procedure : CommentPictureResize ' Date : 20080507 ' Author : Joergen Bondesen ' Modifyed by : ' Purpose : Resize Picture in Comment. ' Note : One line in Comment: PictureSize: '298*270' ' Fontsize 5. Tested in Excel 2007. '---------------------------------------------------------- ' Sub CommentPictureResize() With Range("A1") .Comment.Shape.Select True Dim Psize As String Psize = .Comment.Text End With Dim Splitstring As Variant Splitstring = Split(Psize, "*") With Selection.ShapeRange .LockAspectRatio = msoFalse .Height = Splitstring(0) .Width = Splitstring(1) .LockAspectRatio = msoTrue End With Range("A1").Select End Sub [/QUOTE]