En ole löytänyt kuinka saan "laatikon" lisättyä vaikkapa viereen. En oikein osannut hommaa 2003 versiossakaan, mutta 2007 on näköjään vielä vaikeampi. Osaako kukaan neuvoa?
Organisaatiokaavio
Powerpoint2007:ssä
5
1076
Vastaukset
- organisaatiokaavio
http://office.microsoft.com/fi-fi/powerpoint/HA100758531035.aspx
- vastauksesta, mutta
ei silti onnistunut. Yritän tehdä sukupuuta. Alussa on muutama, mutta mitä enemmän mennään alaspäin, sitä enemmän nimiä tulee. Aina avioparin äiti ja isä ja taas heidän äiti ja isä. Muita sukulaisia en siihen ota (siskot, veljet). Olen edennyt jo 1700-luvulle. Ratkaisin asian ja teen sen Wordiin. Valitsen tekstikehyksen ja laitan sen sinne mihin kuuluu. Sitten yhdistelen viivoilla. Harmittaa kyllä, olen sentään suorittanut tietokoneen AB-ajokortin, joten pitäisi kyllä osata. Tosin opettelin sen organisaatiokaavio versiossa 2000. Silloin se oli helppo!
- hölöttäjä222
vastauksesta, mutta kirjoitti:
ei silti onnistunut. Yritän tehdä sukupuuta. Alussa on muutama, mutta mitä enemmän mennään alaspäin, sitä enemmän nimiä tulee. Aina avioparin äiti ja isä ja taas heidän äiti ja isä. Muita sukulaisia en siihen ota (siskot, veljet). Olen edennyt jo 1700-luvulle. Ratkaisin asian ja teen sen Wordiin. Valitsen tekstikehyksen ja laitan sen sinne mihin kuuluu. Sitten yhdistelen viivoilla. Harmittaa kyllä, olen sentään suorittanut tietokoneen AB-ajokortin, joten pitäisi kyllä osata. Tosin opettelin sen organisaatiokaavio versiossa 2000. Silloin se oli helppo!
sukututkimukseen on ihan omia ohjelmia olemassa. Käytä niitä ja pääset PAAAAALJON helpommalla jatkossa....
Linuxille ja windowsille saatavilla sekä ilmaisia, että maksullisia suomen kielisiä ohjelmia tai vaikka enkuksi jos haluat....
:) vastauksesta, mutta kirjoitti:
ei silti onnistunut. Yritän tehdä sukupuuta. Alussa on muutama, mutta mitä enemmän mennään alaspäin, sitä enemmän nimiä tulee. Aina avioparin äiti ja isä ja taas heidän äiti ja isä. Muita sukulaisia en siihen ota (siskot, veljet). Olen edennyt jo 1700-luvulle. Ratkaisin asian ja teen sen Wordiin. Valitsen tekstikehyksen ja laitan sen sinne mihin kuuluu. Sitten yhdistelen viivoilla. Harmittaa kyllä, olen sentään suorittanut tietokoneen AB-ajokortin, joten pitäisi kyllä osata. Tosin opettelin sen organisaatiokaavio versiossa 2000. Silloin se oli helppo!
Kiinnostus heräsi ja tsekkasin makron mahdollisuutta...
Wordissahan voi tehdä 9 eri otsikkotasoa maksimissaan, mikä lienee riittää sukupuussakin ikäpolviksi???
eli helpommalla pääsee kun valitsee valikosta näkymäksi VIEW/OUTLINE
sitten vaan alkaa kirjotteleen sukupuuta tyyliin
1 otsikko oma nimesi
2 otsikko(sisennyksellä) äiti
3 otsikko(sisennyksellä) äitin äiti
3 otsikko(sisennyksellä) äitin isä
2 otsikko(sisennyksellä) isä
3 otsikko(sisennyksellä) isän äiti
3 otsikko(sisennyksellä) isän isä
4 jne...
ja sitten vaan suorittaa makron...
ja sukupuu siististi uudessa dokkarissa...
liitä moduuliin...
Sub OrganisaatioKaavio()
Dim doc As Document
Dim para As Paragraph
Dim Teksti As String
Dim nodeRoot As DiagramNode
Dim Laatikko As Shape
Dim node1 As DiagramNode
Dim node2 As DiagramNode
Dim node3 As DiagramNode
Dim node4 As DiagramNode
Dim node5 As DiagramNode
Dim node6 As DiagramNode
Dim node7 As DiagramNode
Dim node8 As DiagramNode
Dim node9 As DiagramNode
On Error Resume Next
Set doc = ActiveDocument
Set Laatikko = Documents.Add.Shapes.AddDiagram(msoDiagramOrgChart, 0, 0, 500, 500)
Set nodeRoot = Laatikko.DiagramNode.Children.AddNode
nodeRoot.TextShape.TextFrame.TextRange.Text = "Sukupuu"
For Each para In doc.Paragraphs
Select Case para.OutlineLevel
Case wdOutlineLevel1
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node1 = nodeRoot.Children.AddNode
node1.TextShape.TextFrame.TextRange.Text = Teksti
Set node2 = Nothing
Set node3 = Nothing
Set node4 = Nothing
Set node5 = Nothing
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel2
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node2 = node1.Children.AddNode
node2.TextShape.TextFrame.TextRange.Text = Teksti
Set node3 = Nothing
Set node4 = Nothing
Set node5 = Nothing
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel3
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node3 = node2.Children.AddNode
node3.TextShape.TextFrame.TextRange.Text = Teksti
Set node4 = Nothing
Set node5 = Nothing
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel4
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node4 = node3.Children.AddNode
node4.TextShape.TextFrame.TextRange.Text = Teksti
Set node5 = Nothing
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel5
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node5 = node4.Children.AddNode
node5.TextShape.TextFrame.TextRange.Text = Teksti
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel6
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node6 = node5.Children.AddNode
node6.TextShape.TextFrame.TextRange.Text = Teksti
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel7
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node7 = node6.Children.AddNode
node7.TextShape.TextFrame.TextRange.Text = Teksti
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel8
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node8 = node7.Children.AddNode
node8.TextShape.TextFrame.TextRange.Text = Teksti
Set node9 = Nothing
Case wdOutlineLevel9
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node9 = node8.Children.AddNode
node9.TextShape.TextFrame.TextRange.Text = Teksti
End Select
Next para
End Sub
Keep Wording
@Kunde- laaja suku
hölöttäjä222 kirjoitti:
sukututkimukseen on ihan omia ohjelmia olemassa. Käytä niitä ja pääset PAAAAALJON helpommalla jatkossa....
Linuxille ja windowsille saatavilla sekä ilmaisia, että maksullisia suomen kielisiä ohjelmia tai vaikka enkuksi jos haluat....
:)myös kaikille vastaajille. Satuin nyt uudelleen tähän sivulle. Kesällä lainasin kirjastosta sellaisen kirjan kuin Sukututkimus internetissä. Siinä opetettiin hakemaan tämä PAF tiedosto ja myös suomennos siihen. Nyt minulla on siellä sukuani jo lähemmäs 1000 henkilöä (tosin turhaa noin laaja, mutta oli niin mielenkiintoista).
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mielessäni vieläkin T
Harmi että siinä kävi niinkuin kävi, rakastin sinua. Toivotan sulle kaikkea hyvää. Toivottavasti löydät sopivan ja hyvän331402Nellietä Emmaa ja Amandaa stressaa
Ukkii minnuu Emmaa ja Amandaa stressaa ihan sikana joten voidaanko me koko kolmikko hypätä ukin kainaloon ja syleilyyn k71292Nähtäiskö ylihuomenna taas siellä missä viimeksikin?
Otetaan ruokaöljyä, banaaneita ja tuorekurkkuja sinne messiin. Tehdään taas sitä meidän salakivaa.21214- 51206
Persut petti kannattajansa, totaalisesti !
Peraujen fundamentalisteille, vaihtkaa saittia. Muille, näin sen näimme. On helppo luvata kehareille, eikä ne ymmärrä,11191Pupuhuhdasta löytyi lähes sadan kilon miljoonalasti huumeita
Pupuhuhdasta löytyi lähes sadan kilon miljoonalasti huumeita – neljä Jyväskylän Outlaws MC:n jäsentä vangittu: "Määrät p411188Sinäkö se olit...
Vai olitko? Jostain kumman syystä katse venyi.. Ajelin sitten miten sattuu ja sanoin ääneen siinä se nyt meni😅😅... Lis11183Housuvaippojen käyttö Suomi vs Ulkomaat
Suomessa housuvaippoja aletaan käyttämään vauvoilla heti, kun ne alkavat ryömiä. Tuntuu, että ulkomailla housuvaippoihin21154Hyvää yötä ja kauniita unia!
Täytyy alkaa taas nukkumaan, että jaksaa taas tämän päivän haasteet. Aikainen tipu madon löytää, vai miten se ärsyttävä31149Lepakot ja lepakkopönttö
Ajattelin tehdä lepakkopöntön. Tietääkö joku ovatko lepakot talvella lepakkopöntössä ´vai jossain muualla nukkumassa ta21130