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ä
51226
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 5
Vanhimmat
http://office.microsoft.com/fi-fi/powerpoint/HA100758531035.aspx
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....
:)
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
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).