Excel afbeelding vergrendelen, maar wel kunnen ctrlC & ctrlV

[Kroesjeluc]

Mijn vraag:
Ik ben werkzaam als docent Lichamelijke opvoeding. Ter voorbereiding van lessen heb ik vaak een organisatie tekening/plattegrond nodig met de specifieke materialen. Ik heb via Excel een plattegrond maker gebouwd. In dit werkblad staan verschillende afbeeldingen. Het doel is om de verschillende afbeeldingen te kopiëren en te plakken. Dit creëert een kopie van de afbeelding. Deze kopie kan dan worden verplaatst in de plattegrond.

Mijn wens zou zijn dat de huidige afbeeldingen (in het materialenhok) niet verplaatst kunnen worden (geblokkeerd dus), maar wel gekopieerd en geplakt kunnen worden.

Is dit binnen Excel mogelijk om alles te blokkeren (geen wijzigingen mogelijk), maar wel ctrl c en ctrl v gebruiken om de kopie van een afbeelding te plaatsen?



Relevante software en hardware die ik gebruik
Excel

Wat ik al gevonden of geprobeerd heb
Ik krijg via google of Tweakers geen antwoord op mijn vraag gevonden.,

[Teun_2]

Excel lijkt me hier echt niet de juiste tool voor.
Als je excel hebt, neem ik aan dat je ook Visio kan gebruiken in je licentie?
Een plattegrond maken in Visio - Microsoft Ondersteuning

[dixet]

↑ wat Teun zegt

Maar als je het écht in Excel wilt kan dit alleen met VBA macro's. Maak een macro die op het klikken op een afbeelding wordt aangeroepen.

• Zorg dat alle afbeeldingen als eigenschap "Locked" aan hebben staan zodat ze niet veplaatst kunnen worden
• Maak een macro die achter iedere afbeelding gehangen wordt die
  1. de sheet unlockt
  2. deze afbeelding dupliceert
  3. van de gedupliceerde afbeelding het aanroepen van diezelfde macro verwijderd en de "locked" eigenschap uit zet
  4. de sheet weer lockt
• Zorg dat je sheet in Protect status staat

Resultaat is een kopie van de afbeelding die vrij te verplaatsen is.

voorbeeldcode (alleen proof of concept, je kan deze zelf netter maken en herbruikbaar voor iedere afbeelding)

code:

Sub DupliceerAfbeelding()
    Dim s As Worksheet
    Dim p As Shape
    Set s = ActiveSheet
    s.Unprotect
    Set p = s.Shapes("Rectangle 1").Duplicate
    p.OnAction = ""
    p.Locked = False
    s.Protect
End Sub

[Kroesjeluc]

dixet schreef op donderdag 7 maart 2024 @ 15:29:
↑ wat Teun zegt

Maar als je het écht in Excel wilt kan dit alleen met VBA macro's. Maak een macro die op het klikken op een afbeelding wordt aangeroepen.

• Zorg dat alle afbeeldingen als eigenschap "Locked" aan hebben staan zodat ze niet veplaatst kunnen worden
• Maak een macro die achter iedere afbeelding gehangen wordt die
  1. de sheet unlockt
  2. deze afbeelding dupliceert
  3. van de gedupliceerde afbeelding het aanroepen van diezelfde macro verwijderd en de "locked" eigenschap uit zet
  4. de sheet weer lockt
• Zorg dat je sheet in Protect status staat

Resultaat is een kopie van de afbeelding die vrij te verplaatsen is.

voorbeeldcode (alleen proof of concept, je kan deze zelf netter maken en herbruikbaar voor iedere afbeelding)

code:

Sub DupliceerAfbeelding()
    Dim s As Worksheet
    Dim p As Shape
    Set s = ActiveSheet
    s.Unprotect
    Set p = s.Shapes("Rectangle 1").Duplicate
    p.OnAction = ""
    p.Locked = False
    s.Protect
End Sub

Heel prettig dat jullie zo meedenken. Het idee is echter dat ik en anderen steeds zelf het "drag en drop" principe hanteren. Helaas heb ik geen Visio licentie erbij zitten, alleen de web versie.

Nu probeer ik uw tip omtrent de Macro's, maar als ik de code kopieer en plak bij de desbetreffende groep (gegroepeerde shapes) of afbeelding, dan krijg ik steeds verschillende foutmeldingen.

Helaas beheers ik die code taal niet. Heeft u toevallig tips waar ik kan vinden hoe ik dit op de juiste manier kan typen?

[Belindo]

VBA is even een leercurve. Maar je kan er mooie dingen mee doen. @dixet had al een mooie suggestie. Zelf zou ik een userform maken met de afbeeldingen erin, en dan via een knop 'materiaal toevoegen' het userform tonen zodat een plaatje geklikt kan worden die dan wordt toegevoegd in het veld en verplaatst kan worden.

Als je het bestand ergens uploaden kan, en via DM de link stuurt, wil ik in het weekend best wel even een opzetje maken. Ik hou van dit soort tooltjes.
maken.

Geen harde belofte dat het lukt. En of het in een weekend gedaan is though. Dus pin me er niet op vast.

[Kroesjeluc]

Belindo schreef op vrijdag 8 maart 2024 @ 15:31:
VBA is even een leercurve. Maar je kan er mooie dingen mee doen. @dixet had al een mooie suggestie. Zelf zou ik een userform maken met de afbeeldingen erin, en dan via een knop 'materiaal toevoegen' het userform tonen zodat een plaatje geklikt kan worden die dan wordt toegevoegd in het veld en verplaatst kan worden.

Als je het bestand ergens uploaden kan, en via DM de link stuurt, wil ik in het weekend best wel even een opzetje maken. Ik hou van dit soort tooltjes.
maken.

Geen harde belofte dat het lukt. En of het in een weekend gedaan is though. Dus pin me er niet op vast.

Ik heb u een privé bericht gestuurd.

[F_J_K]

Op die manier kunnen anderen niet meedenken, en kunnen anderen er niet van leren. Zonde

Ook, andermans VBA-code gebruiken zonder de taal goed te kennen is een slecht idee. Op apparatuur van de werkgever een heel slecht idee.

Belangrijker: met heel veel moeite kan je met een schroevendraaier een plank doorzagen. Het blijft een heel slecht idee. Het kan vast (al is VBA niet Turing complete), maar ga hier ajb geen Excel + VBA voor gebruiken. Vraag dan liever naar wat voor (gratis) software wel zou kunnen.

offtopic:
Huh, als ik het zo zie was precies dit (ergens begin 18e eeuw, ik ben oud) een van mijn eerste opdrachten bij het leren van C++.

[The Eagle]

Gewoon draw.io gebruiken en dan een eigen library maken, net zo makkelijk.
Zie https://drawio-app.com/bl...-your-own-custom-library/