Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Werkt prima, maar alleen bij klikken op een cel.
Niet bij hover, zoals met een commentaar boxje.
With Blad1.Shapes("Image1")
Sub verwijder_alle_driehoekjes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = msoShapeRightTriangle Then shp.Delete
Next shp
End Sub
Sub CoverCommentIndicator()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
On Error Resume Next
ActiveSheet.Shapes(Cmt.Parent.Address(0, 0) & "item").Delete
With ActiveSheet.Shapes.AddShape(msoShapeRightTriangle, Cmt.Parent.Offset(, 1).Left - 5, Cmt.Parent.Top, 5, 5)
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 1
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
.Name = Cmt.Parent.Address(0, 0) & "item"
End With
Next
End Sub
Heb zelf geen problemen met het bestand ook niet in Excel 2010, wellicht kun je geen ActiveX-besturingselementen hebben oidHet zal dan wellicht aan mijn Excelversie liggen. Of ergens een instelling.
Private Sub Worksheet_Activate()
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Dim wShp As Long
Dim hShp As Long
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
' stukje code van cow18 om de schaduwen uit de plaatjes te halen
' MsgBox shp.TopLeftCell.Address & vbTab & shp.Name 'zeg cel linkerbovenhoek en naam
If Not Intersect(Range("F1:N42"), shp.TopLeftCell) Is Nothing Then
shp.Shadow.Visible = msoFalse
End If
' coderegel van Harry om alle driehoekjes over de opmerkingindicatoren te verwijderen
If shp.AutoShapeType = msoShapeRightTriangle Then shp.Delete
Next shp
' overige coderegels van Harry om nieuwe driehoekjes te plaatsen
Set pWs = Application.ActiveSheet
wShp = 5
hShp = 5
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 1
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
Is het dan geen beter idee om de plaatjes te koppelen aan een extern bestand?
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.