SVERWEIS auf Bilder anwenden

[nixblicker]

Hallo Forenfreunde,

Dies hier ist mein erster Beitrag im LibreOffice-Forum.
Ich bin seit einem Jahr Linux-Umsteiger und arbeite seither mit LibreOffice.

Meine bisherigen "Aktionen" liessen sich mit Win.. Kenntnissen umsetzten, doch nun stosse ich an meine Wissensgrenze.

Ich möchte mir eine Vorlage für ein Einrichtblatt einer CNC-Maschine gestalten.
In dieser Tabelle sollen in Spalte B untereinander verschiedene vordefinierte Fertigungsschritte ausgewählt werden können ( z.B. Bohren, Drehen, Fräsen ) und in Spalte A ein jeweils entsprechendes Bild angezeigt und später auch gedruckt werden, etwa so

Bild1.png (23.77 KiB) 6753 mal betrachtet

Den Eintrag in Spalte B habe ich per Daten --> Gültigkeit--> Zellbereich dynamisiert, die Daten und Bilder hierfür sind in einem 2.Tabellenblatt hinterlegt.
Die Zuweisung einer Grafik funktionierte unter Excel mit SVERWEIS und EINFÜGEN VERKNÜPFTE GRAFIK, ggf. mit Hilfe des Namenmanagers.
Die Funktion 'Einfügen verknüpfte Grafik' vermisse ich in Calc, bzw. habe sie mangels Notwendigkeit noch nicht gefunden.

Kann mir jemand erklären, wie ich hier zu einer Lösung komme ?

Vielen Dank schon mal...
nixblicker

[Wanderer]

Hallo,

in Calc verwendest Du aus dem Menü Einfügen > Bild. Im Dialog zum auswählen der Datei kannst Du unten
"verknüpfen" anhaken. Einen zusätzlichen Menüpunkt braucht man dafür nicht.

Ich habe aber bisher nie probiert, ob man dies mit SVERWEIS kombinieren kann.

MfG, Jörn

[nixblicker]

Hallo Wanderer,

nun, ich denke, mit Einfügen --> Bild --> aus Datei füge ich ein Bild "über der Zelle" ein und binde sie mit 'Verknüpfen' lediglich an die Zieldatei, meine Tabelle.
Was mir fehlt ist, das Bild mit der darunter befindlichen Zelle zu verbinden.

[Wanderer]

Hallo,

wenn ich Dich richtig verstehe möchtest Du einen Zellinhalt erzeugen, für den Calc automatisch ein
Bild anzeigt. In Base kenne geht das, in Calc habe ich das zumindestens noch nie gesehen...

Evtl helfen Dir die beiden Threads und das OO-Wissensarchiv weiter:
http://www.libreoffice-forum.de/viewtop ... 0&start=10
http://www.libreoffice-forum.de/viewtopic.php?t=14909 und
http://de.openoffice.info/viewtopic.php?f=25&t=66069

MfG, Jörn

[nixblicker]

Danke Wanderer,

leider führen die Links und deren weitere Links letztendlich zu keiner Lösung, die behandeln Kommentare und andere Szenarien.

Es gibt ein Excel Tutorial #308 auf Y..Tu.. ( darf ich das hier überhaupt anführen ... ).
Exakt diese Funktionalität suche ich, komme aber mangels (gefundener) Funktionen in LibreOffice nicht auf den Trichter.

Dass so etwas nicht gehen soll, kann ich fast nicht glauben.
So eine Anwendung findet in jeder Artikelverwaltung, Personalbögen etc. statt...

Gruß
nixblicker

[F3K Total]

Moin,

Dass so etwas nicht gehen soll, kann ich fast nicht glauben.

Natürlich geht das in LO, erfordert allerdings ein entsprechend programmiertes Makro.

Code: Alles auswählen

function F_get_Graphic(oCell)
    nRow = oCell.celladdress.row
    nColumn = oCell.celladdress.column
    nName = oCell.String
    if nName = "" then exit function
    oSheet = oCell.Spreadsheet
    oSourceSheet = thiscomponent.sheets.getbyname("Tabelle2")
    oSourceDrawpage = oSourceSheet.Drawpage
    for i = 0 to oSourceDrawpage.count - 1
        oshape = oSourceDrawpage(i)
        if oshape.Name = oCell.String then 
            sGraphicURL = oshape.GraphicURL
            aShapeSize = oshape.size
        endif
    next i
    oTargetRow =  oSheet.Rows(nRow)
    oTargetCell = oSheet.getcellbyposition(nColumn - 1, nRow)
    oTargetDrawpage = oSheet.Drawpage
    for i = 0 to oTargetDrawpage.count - 1
        oOldShape = oTargetDrawpage(i)
        if oOldShape.Anchor.AbsoluteName = oTargetCell.AbsoluteName then 
            oTargetDrawpage.remove(oOldShape)
            exit for
        endif
    next i
    oNewShape = ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape")
    oPos = oTargetCell.Position
    oPos.X = oPos.X + 10
    oPos.Y = oPos.Y + ((oTargetRow.Height - oshape.size.Height)/2)
    with oNewShape
       .Size = aShapeSize
       .Position = oPos
       .LineStyle = 0
       .GraphicURL = sGraphicURL
       .name = "my_Grafik" + oTargetDrawpage.count
    end with 
    oTargetDrawpage.add(oNewShape)
    oNewShape.Anchor = oTargetCell
end function

Anbei ein Beispiel. Hier habe ich den Bildern auf Tabelle2 über rechte Maustaste, Name... genau den Namen des jeweiligen Suchbegriffes gegeben.
Einfach auf Tabelle1, Spalte B auswählen.
Gruß R
PS: Der Sinn deines Beispieles erschließt sich mir allerdings nicht, wer die Werkzeuge nicht anhand des jeweiligen Begriffs auswählen kann, sollte definitiv die Finger von jeder CNC-Maschine lassen!

[nixblicker]

Hallo F3K Total,

zunächst mal tausend Dank für deine Mühe und das Makro.
Hätte ich das Wissen, so was mal eben aus dem Handgelenk zu schreiben, wäre ich wohl nicht in diesem Forum unterwegs

Ich werde das mal einbauen und sehen was dabei rauskommt.

PS: Der Sinn deines Beispieles erschließt sich mir allerdings nicht, wer die Werkzeuge nicht anhand des jeweiligen Begriffs auswählen kann, sollte definitiv die Finger von jeder CNC-Maschine lassen!

Also, der Umgang mit CNC-Maschinen ist mir seit 3 Jahrzehnten geläufig, mach dir darüber bitte keine Sorgen.
Der Sinn ist ganz einfach - Zeitersparnis !
Bisher machten meine Mitarbeiter und auch ich alle Einrichtblätter mühsam durch manuelle Angabe von Bearbeitungsschritten, händisches einfügen von Werkzeugbildchen, Angaben zu Schneidstoffen usw.
Dieses möchte ich nun durch Drop-Down-Listen vereinfachen und eben zu jedem Werkzeug auch ein Bildchen mit auf`s Papier bringen.
Da ich lediglich 2-4 solcher Blätter am Tag erstelle, lohnt eine professionelle Software-Lösung (noch) nicht, daher diese "Interims-Lösung".

Danke nochmal
nixblicker

[balu]

Hallo

@R

PS: Der Sinn deines Beispieles erschließt sich mir allerdings nicht, wer die Werkzeuge nicht anhand des jeweiligen Begriffs auswählen kann, sollte definitiv die Finger von jeder CNC-Maschine lassen!

Gestatten, ich bin gelernter Dreher und habe Jahrelange Erfahrung an CNC-Fräsen und CNC-Krusseldrehmaschine. (Ach ja, Du kennst mich auch aus dem Nachbarforum ).

Spaß beiseite.
Du glaubst gar nicht wieviele Unterschiedlichste Werkzeuge es für CNC-Maschinen gibt. Und z.B. bei CNC-Drehmaschinen muss man höllsch aufpassen, da man durch die ganzen Bezeichnungen die auf einem Drehstahl stehen sehr schnell überlesen kann ob es sich um einen L oder R Stahl handelt. L steht für Links, und R dementsprechend für Rechts. Das war jetzt ein ganz simples Beispiel.

Noch ein paar andere Beispiele:
Wendeschneidplatten:
KNUX 160405L11 4C25 (P25)
CCMT090304
WCMX050308
DCMT070202
T31005A
usw. etc.

Wendeplattenwerkzeuge
CKJNR 2020 K16
DCLNR 2020 K12
DCMNN 1616 H12
DCZNN 2020 K12
Nur ein kleinerAuszug von so ca. 30 Stück aus der Kategorie: "Halter Aussenbearbeitung mit Kniehebel- oder Pratzenklemmung"

So grob überm Daumen gepeilt würde ich sagen, das es Tausende unterschiedliche Werkzeuge allein schon nur für Drehmaschinen gibt. Und beim Fräsen sieht das nicht wesentlich anders aus.

Was glaubst Du wohl was in der Industrie gemacht wird, bezüglich Werkzeuge?
Da werden für die CNC-Maschinen extra Werkzeugkarten für das jeweilige Programm und den jeweiligen Auftrag bereitsgestellt, damit blos keine Werkzeugverwechselung stattfinden kann, ja auch mit Bildern oder Zeichnungen von dem Werkzeug. Und jedes Werkzeug bekommt seine eigene Nr. wie z.B. T01 und so weiter und sofort.


Also deine Anmerkung ist nicht zutreffend. Es ist schon etwas komplizierter als Du denkst. Ich nehms dir auch nicht übel, da Du wohl nicht vom Fach bist.



Gruß
balu

[F3K Total]

Hallo Balu

da Du wohl nicht vom Fach bist.

Stimmt, bin kein gelernter Dreher. Was ich mit meinem Spruch herausfinden wollte, war, ob nixblicker es ehrlich meint, oder ob er nur ein MS-Mitarbeiter ist, der ein an den Haaren herbeigezogenes Beispiel anführt. Er braucht wirklich eine Lösung, sehr gut, die Arbeit war nicht umsonst.
Ich bezog mich übrigens auf sein Beispiel, und da sind nur ein Bohrer, ein Fräser und ein Drehmeißel zu sehen. Diese Drei Dinge sollte jeder der vom Fach ist, auseinanderhalten können, oder nicht?
Gruß R

[nixblicker]

Ihr werdet Euch hoffentlich meinetwegen nicht in die Haare kriegen

Nun, in der Tat bin ich MS-Mitarbeiter, der weder sein Produkt beherrscht noch lesen kann.
Spaß beiseite: Wie das mit MS-Produkten funktioniert, steht im Netz - mit Videos und Beispieldateien (siehe Hinweis in meinem vorletzten Thread).

Mein Problem ist, das ich in der Firma MS Produkte einsetze, privat aber auf Linux/LibreOffice umgestiegen bin.
Das ich meine Lösung während meiner Freizeit "konstruiere" konnte ich diese bisher - mangels Wissen/Funktion - nicht vernünftig zum laufen bringen.
Nun hilft mir das Makro unheimlich weiter. Da das unter beiden Systemen laufen müsste, kann ich nun testen und später auf MS portieren.

Das Makro läuft ganz gut, lediglich an der Position der Bilder muss ich noch feilen.
Aufgefallen ist mir, das vor Anzeige eines Bildes das zuvor dargestellte nicht gelöscht wird. Wenn ich also zuerst einen langen Bohrer auswähle, mich dann aber für einen kurzen Fräser entscheide - sehe ich beide Werkzeuge.

Vielleicht kannst du mir da noch Hilfestellung geben, wäre toll

Gruß
nixblicker