Office-makro med lik funksjon som Delete-tasten (PowerPoint2016)

[BoulderX]

Hei!

Jeg trenger litt veiledning til det jeg antar er en svært enkel oppgave. Jeg ønsker å legge til en knapp på verktøylinjen min som fungerer akkurat som Delete-tasten på tastaturet. Det vil altså si at den skal slette det objektet som er markert.

 

Hvorfor? Jeg bruker en stylus-penn til ganske mye, og synes det er slitsomt å måtte høyreklikke og velge Cut for å få fjernet tekstbokser og figurer, siden viske-tasten på stylusen ikke fungerer på objekter, kun på det som er tegnet for frihånd.

 

Er det noen som kan peke meg i riktig retning av en kodelinje eller to som sletter markert objekt?

 

Takker!

[geir__hk]

Nje, var vel ikke så enkel likevel. Tror makroer oftest er knyttet til hver enkelt regnearkfil.

 

Søkte litt på nettet, så klarer du kanskje å finne ut av det til slutt:

 

Beskriver hvordan du setter inn en knapp (ikke på verktøylinja)

https://help.libreoffice.org/Common/Inserting_and_Editing_Buttons

 

Adding Buttons to Toolbars (dette er nok mer det du søker), men finner ingen måter å lage knapp til en makrofunksjon.

https://help.libreoffice.org/Common/Adding_Buttons_to_Toolbars

 

Tråd på det engelske forumet for Open Office, kan dette hjelpe?

https://forum.openoffice.org/en/forum/viewtopic.php?t=1064

 

Ok, glem det over, satt og tullet litt selv med Calc.

 

Altså: Du må innfinne deg med at knappen MÅ være en del av regnearket (altså ikke på verktøylinja). Videre må du ha Java installert for å kunne kjøre makroer via Libre Office (i hvert fall ihht en feilmelding jeg fikk da jeg satt og prøvde)

[QS4MO8J3]

MS Office eller Libre Office?

[BoulderX]

Takker for svar! Det er mulig å lage generelle makroer og feste disse til Add-on tab'en, jeg har en for å sette inn en spesiell type boks og en for å merke og bytte språk på alle objekter.

Men koden for å slette merket objekt, uavhengig av type, har vist seg litt vrient. Kan man lage en makro som bare aktivetet en tastaturknapp?

 

MS Office eller Libre Office?

MS 2016. Noen anelse?

[Emancipate]

https://stackoverflow.com/questions/14605653/send-backspace-keystroke-in-word-vba

[Harald Staff]

 

Hei

 

Denne ser ut til å funke:

Sub Slett()
Dim shp As Shape
On Error Resume Next

If Not ActiveWindow.Selection.Type = ppSelectionNone Then
    If MsgBox("Sikker på at du vil slette?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
    For Each shp In ActiveWindow.Selection.ShapeRange
        shp.Delete
    Next shp
End If

End Sub

Fjern linjen med "If MsgBox("Sikker..." hvis du vil rett på action. Grunnen til å ha med slikt byråkrati er at Undo ikke er tilgjengelig etter at en makro er kjørt.

 

Beste hilsen Harald