Puzzelmaker

[mvdvlist]

Kon het niet laten dit te delen. Gemaakt met behulp van AI (Copilot).
Na het invoegen (met de button op blad1) ga je naar het gecreeerde blad en open je met Alt-F8 de macro "ExportShapesAsImages_Chart" . Dan heb je op je Bureaublad een map PuzzelExport. Printen of graveren en je puzzel is klaar..Gekozen voor PNG output ivm zuiver snijden.
Je kunt trouwens kiezen tussen EEN afbeelding of een hele map.

P.S. Graag feedback of uitbreidingen. Leuk en leerzaam.

 

[alphamax]

Onleesbare inhoud, kan je niet ook opslaan als .xlsm?

 

[edmoor]

Niks mis met dat document hier.
Maar voor jou:

 

[snb]

In plaats van:

 keuzeFormaat = Application.InputBox( _
        Prompt:="Kies puzzelindeling:" & vbCrLf & _
                "1 = 4x4" & vbCrLf & _
                "2 = 6x6" & vbCrLf & _
                "3 = 8x8" & vbCrLf & _
                "4 = 10x10" & vbCrLf & _
                "5 = 12x12", _
        Title:="Foto Puzzel Generator", Type:=1)
    If keuzeFormaat = False Then Exit Sub
    
    Select Case keuzeFormaat
        Case 1: n = 4
        Case 2: n = 6
        Case 3: n = 8
        Case 4: n = 10
        Case 5: n = 12
        Case Else
            MsgBox "Ongeldige keuze.", vbExclamation
            Exit Sub
    End Select

n = Application.InputBox("4 = 4x4" & vbLf  & "6 = 6x6" & vbLf & "8 = 8x8" & vbLf & "10 = 10x10" & vbLf & "12 = 12x12")]/code]

 

[alphamax]

@edmoor
Bedankt.

 

[edmoor]

Dank aan mvdvlist voor het leuke speeltje

 

[mvdvlist]

Ik gebruik het dus om vierkantjes te snijden en er puzzels van te maken. Maar je ziet dat SNB het nog korter weet te maken als AI. Knap hoor..Maar jou code moet je wel goed begrijpen, en daarom heb ik bewust gekozen voor Select Case, om later makkelijk waarden toe te voegen of te veranderen, bv 20x20 of zo..

 

[snb]

Ontwikkeld met HI:
Zonder loggegevens.