Graag zou ik een oplossing hebben voor het volgende probleem. Ik wil in en excel blad aan een figuur (in dit geval een driehoek) een macro hangen als ik dan op het figuur klik moet de kolombreedte en de rijhoogte van de cel zich aanpassen aan de lengte en de hoogte van het figuur (zie bijlage) wie weet raad?
-
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.
Cel grootte en breedte aanpassen aan Figuur
- Onderwerp starter H.Weenink
- Startdatum
- Status
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 21.140
- Office versie
- Bèta Insider Office 365
Test het maar eens.
Het omrekengetal ligt ongeveer bij 8 van rowheight naar columnwidth in pixels (precies weet ik het niet, geen tijd voor).
Ik ben er derhalve vanuit gegaan dat het net zo goed een rechthoek kan zijn.
Koppel de code aan de shape.
Het omrekengetal ligt ongeveer bij 8 van rowheight naar columnwidth in pixels (precies weet ik het niet, geen tijd voor).
Ik ben er derhalve vanuit gegaan dat het net zo goed een rechthoek kan zijn.
Koppel de code aan de shape.
Code:
Sub hsv()
With ActiveSheet.Shapes(Application.Caller)
.Left = .TopLeftCell.Left
.Top = .TopLeftCell.Top
Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).RowHeight = .Height
Columns(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column).ColumnWidth = .Width / 8
End With
End Sub- Status
