07. februar 2005 - 13:24Der er
9 kommentarer og 1 løsning
Smart makro-hvem kan forbedre den?
Hej! Jeg har fundet på nettet en makro som indsætter et billede i kommentar. Man skriver i en celle genvej til et billede ex.C:\bro.jpg efterfølgende afspiller man makro og vupti så har men billedet i kommentar til cellen. Jeg vil gerne have at kommentar boksen bliver størere da jeg vil bruge denne makro til information om produktet.
Sub AddPictureToComment() Dim rng As Range Dim shp As Comment
Set rng = ActiveCell
If Not rng.Comment Is Nothing Then rng.Comment.Delete End If
If rng.Text <> "" Then Set shp = rng.AddComment("") shp.Shape.Fill.UserPicture rng.Text End If
Prøv denne (ikke testet) - den skulle skalere op med 50% (faktor 1.5):
Sub AddPictureToComment() Dim rng As Range Dim shp As Comment
Set rng = ActiveCell
If Not rng.Comment Is Nothing Then rng.Comment.Delete End If
If rng.Text <> "" Then Set shp = rng.AddComment("") shp.Shape.Fill.UserPicture rng.Text shp.Shape.ScaleHeight 1.5, msoTrue shp.Shape.ScaleWidth 1.5, msoTrue End If
Tror heller ikke at det kommer til at virke. Fill.Userpicture virker på samme måde som hvis du farvelægger kommentaren. Dvs at den udfylder hele kommentaren, men dette hindrer dug jo ikke i at skrive i kommentaren, du kan bare ikke se tekst og billede på samme tid.
kabbak -> Stort set det jeg prøvede at skrive, men det lykkedes måske ikke så godt :-) det kræver at det ikke er så mørkt et billede som jeg testede med. Hvis man så klikker i kommentaren kan man se hele teksten
Jeg er kun interesseret at se billede fordi jeg har alt info om produktet som billedefil. Derfor skal kommentar boksen være større. Er det virkelig ingen der kan justere kommentar boksens størelse.
Sub AddPictureToComment() Dim rng As Range Dim shp As Comment
Set rng = ActiveCell
If Not rng.Comment Is Nothing Then rng.Comment.Delete End If
If rng.Text <> "" Then Set shp = rng.AddComment("") shp.Shape.Fill.UserPicture rng.Text '//Her kan du sætte størrelsen så stor som du ønsker. Forholdet 4/3 er ca.ok // shp.Shape.Width = 400 shp.Shape.Height = 300 End If
alen32 -> det har jeg ikke ændret på, men det kan vel fikses. Som jeg ser makroen virker den kun på den aktive celle.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
