Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketIndsætte billede i kommentarfeltet.
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
clemenz Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 17.Okt.2013
Land: Færøerne
Status: Offline
Point: 5 		Direkte link til dette indlæg Emne: Indsætte billede i kommentarfeltet.
    Sendt: 17.Okt.2013 kl. 15:49
Goddag Smile

Jeg sidder og fumler med at oprette en makro, men det får jeg ikke til at virke. Jeg bruger Excel 2013.

Når man bruger "Indsæt kommentar" og her indsætter en kommentar, kan man bagefter se kommentaren ved at føre musen hen over cellen, hvori kommentaren er indsat.

På samme måde vil jeg gerne kunne indsætte et billede i stedet for en kommentar (hvor billedet vises, når man fører musen hen over cellen), og jeg har fundet ud af, at det kan gøres således:

1. Højreklik på en celle, og vælg "Indsæt kommentar"
2. Højreklik på kommentarboksens ramme (curseren skal blive til et kors)
3. Vælg "Formatér kommentar"
4. Vælg fanebladet "Farver og streger"
5. Vælg boksen "Farve"
6. Vælg "Effekter"
7. Vælg fanebladet billedet
8. Vælg "Vælg billede"

Jeg kunne tænke mig en makro, der udfører ovenstående, men den skal stoppe ved et forudbestemt bibliotek, hvor billederne ligger, således at man vælger det billede, man vil have.

Det går fint med at starte på at optage makroen, men når man stopper efter at have åbnet det pågældende bibliotek, kan man ikke afslutte optagelsen.

Jeg ville blive meget glad, nogen kan forklare mig, hvordan jeg får dette til at virke Smile
Til top



Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 17.Okt.2013 kl. 17:46
Marker celle du vil have kommentar og billede i, kør makroen så kan
du browse dig frem til aktuel billede som indsættes i kommentaren.
 
Sub IndsætBillede()
Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogOpen)
x.Show
sti = x.SelectedItems(1)
Selection.AddComment
Selection.Comment.Visible = True
Selection.Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture sti
Set x = Nothing
End Sub
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
clemenz Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 17.Okt.2013
Land: Færøerne
Status: Offline
Point: 5 		Direkte link til dette indlæg Sendt: 17.Okt.2013 kl. 18:12
Hej excelent Smile

1000 tak for dit svar - som virker! Big smile

Der er bare én ting: Jeg vil gerne at billedet som default er skjult, så det først ses, når man fører musen hen over cellen.

Jeg har prøvet at ændre denne linie:
Selection.Comment.Visible = True
til
Selection.Comment.Visible = False

- men det virker ikke.

Jeg anvender Excel 2013.

Igen - tak! Smile
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 17.Okt.2013 kl. 18:44
Har desuden tilføjet en error handler hvis du klikker Annuler :
 
Sub IndsætBillede()
On Error GoTo ud
Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogOpen)
x.Show
sti = x.SelectedItems(1)
Selection.AddComment
Selection.Comment.Visible = True
Selection.Comment.Shape.Select True
Selection.ShapeRange.Fill.UserPicture sti
ActiveCell.Comment.Visible = False
ud:
Set x = Nothing
End Sub
 
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
clemenz Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 17.Okt.2013
Land: Færøerne
Status: Offline
Point: 5 		Direkte link til dette indlæg Sendt: 17.Okt.2013 kl. 19:08
Hej excelent Smile

Så virker det, som jeg havde tænkt mig Smile
Jeg fandt selv ud af at tilføje to linjer for at angive en default højde/bredde på kommentarboksen (så billederne får en passende størrelse).

Tusind mange tak for hjælpen Big smile
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 17.Okt.2013 kl. 19:17
ok og velbekom :-)
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk