Was geht – und was geht nicht

Direkter API-Zugriff auf Midjourney?
Geht nicht. Midjourney läuft über Discord. Kein REST-Endpunkt. Keine offizielle API.

Aber: Du kannst den Umweg gehen.
Access erzeugt Prompts, ein Bot (z. B. per Node.js oder Power Automate + Discord Webhook) übermittelt sie.
Später holst Du Dir das Bild zurück – per Link oder per Download.

Ich zeig Dir das Setup in zwei Etappen:

1. Prompt-Erzeugung in Access
2. Übergabe via Webhook an Discord/Midjourney

Tabellenstruktur

Tabelle	Zweck
tblPrompts	Prompttexte für Midjourney
tblBilder	Bildlinks, Status, Timestamp

Beispiel-Prompt aus Access

A futuristic data center in the North Sea, in the style of a technical illustration, orange tones

Access erzeugt daraus einen JSON-String für den Webhook.

Discord Webhook vorbereiten

1. Discord-Server erstellen
2. Textkanal → Einstellungen → Integrationen → Webhook erstellen
3. Webhook-URL kopieren
4. Bot oder Power Automate bereitstellen (optional)

Hinweis: Midjourney akzeptiert Prompts nur von autorisierten Usern.
Die Discord-Webhook-Variante ist also nur der halbe Weg.
Du brauchst einen Midjourney-Bot-Account mit Discord-Zugriff.

Prompt per VBA an Discord senden

Function SendePromptAnDiscord(prompt As String) As Boolean
    Dim http As Object
    Dim url As String
    Dim json As String

    url = "DEINE_DISCORD_WEBHOOK_URL"

    json = "{""content"":""/imagine prompt: " & Replace(prompt, """", "'"") & """}"

    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/json"
    http.send json

    SendePromptAnDiscord = (http.Status = 204 Or http.Status = 200)
End Function

Prompt automatisch generieren

Function ErzeugePrompt(kategorie As String, farbschema As String) As String
    ErzeugePrompt = "A " & kategorie & " rendered in " & farbschema & " tones, in the style of a concept art illustration"
End Function

Du kannst ein Formular bauen mit Eingabefeldern für

• Kategorie
• Farbschema
• Stil
• Auflösung

und daraus die Prompt-Zeile bauen lassen.

Bildlink zurückholen?

Nicht ganz einfach. Discord liefert keine Webhook-Antwort mit Bild.
Aber Du kannst per Python, PowerShell oder Power Automate im Kanal mitlesen
(siehe Discord API + Bot-Token).

Oder: Du trägst die Bild-URL manuell in tblBilder ein.
Langfristig: Discord-Bot selbst hosten.

Alternative Workaround: GPT + DALL·E + Access

Wenn Du nicht auf Midjourney bestehst:

• DALL·E 3 lässt sich per OpenAI API direkt aus Access nutzen
• Siehe: https://api.openai.com/v1/images/generations
• Prompt per VBA senden, Bildlink zurückholen, fertig

Siehe Beispiel:

Function ErzeugeBildMitDalle(prompt As String) As String
    Dim http As Object
    Dim apiKey As String
    Dim jsonRequest As String
    Dim jsonResponse As String

    apiKey = "DEIN_OPENAI_API_KEY"

    jsonRequest = "{""prompt"":""" & Replace(prompt, """", "\""") & """, ""n"":1, ""size"":""1024x1024""}"

    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    http.Open "POST", "https://api.openai.com/v1/images/generations", False
    http.setRequestHeader "Content-Type", "application/json"
    http.setRequestHeader "Authorization", "Bearer " & apiKey
    http.send jsonRequest

    jsonResponse = http.responseText
    ErzeugeBildMitDalle = ExtrahiereBildUrl(jsonResponse)
End Function

Bild-URL extrahieren

Function ExtrahiereBildUrl(json As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"
    sc.AddCode "function getUrl(j){return JSON.parse(j).data[0].url;}"
    ExtrahiereBildUrl = sc.Run("getUrl", json)
End Function

Was sinnvoll ist

• Access für Prompt-Bibliothek und Generator
• DALL·E für einfache API-Anbindung
• Midjourney für höhere Bildqualität (aber mehr Aufwand)
• Kombination mit Power Automate/Node.js für Discord-Schnittstelle

„Access kann keine Bilder malen – aber sagen, was gemalt werden soll.“

Wenn Du das automatisieren willst – ich helf Dir beim Setup.
Auch mit Discord, DALL·E oder Bot-Logik.