Hi All,
I want to add a textbox(or any other object like chart) to slide master of impress of Libreoffice by macro in VB. I am able to add this on normal slide, but having trouble on “slide master”. Please guide me to do so. Thanks in Advance.
@erobiku - I understand that with adding a text box you want to create a new placeholder for text you then edit in Normal view. Something like to placeholder for the title. If my understanding is wrong my answers might not necessarily be answer to your question.
Objects you add to the slide master cannot be edited in Normal view. This is not nice but is the same as with MS PowerPoint.
You cannot delete or copy & paste any of the elements you see in the master slide.
You can
- Change the size, position, background colors, and fonts of the elements of a master page
- Create additional master pages and each page can be different from each other
I duplicated the master slide and modified 1 to by my title page master and the other to my normal slide master. Both of my master slides are highly customized.
If you need more advice please let me know where in the customization process you have troubles.
It might be worthwhile to have a look at the Impress Guide. You will find the complete Impress Guide under:
https://wiki.documentfoundation.org/Documentation/Publications#LibreOffice_Impress_Guide
Thank you so much for reply. I Actually want to add a footer text (My_Company_Name + Document_Title + Slide No. + Copy_Right_Text) on Every Slide. I use Dialog box in VB(Macro, Sub, Forms etc.) to enter the details and on click of OK button it create an Impress document using template. I add a TextBox to all the slides with desired text manually(Set TxtShp = Doc.createInstance(“com.sun.star.drawing.TextShape”)) and it appears on each slide too but, when I create new slide, then no footer text on it. So I think If I am able to add this TextBox to SlideMaster It must display to all slide even I add few more slides. Footer will not update once Set. I hope you understand what I want to implement. If further need some more explanation please feel free to ask. And Thanks once again for kind help.
@erobiku - I am don’t understand why you want to all these thinks with a macro; but maybe you have special reason, which I just don’t
Here is what I am doing:
Name of my clients company - I use the footer area and the place holder is formatted in my template
My name (or collaborators name) is in the date/time area and again <date/time> is formatted in the my template. I use the date only once on the title page.
Hope it helps or is food for thoughts.
@ ROSt52
Let me explain my problem more clearly.
I have this code:
Dim DrwPages as Object
Set DrwPages = Doc.getDrawPages()
Dim FText As Object
Dim DrwPg as Object
Dim TxtShp as Object
Dim TxtPoint as New com.sun.star.awt.Point
Dim i as Long
Dim k as Long
For i = 1 to DrwPages.getCount() - 2
Set DrwPg = DrwPages.getByIndex(i)
Set TxtShp = Doc.createInstance("com.sun.star.drawing.TextShape")
DrwPg.Add(TxtShp)
' TxtPoint.X = DrwPg.Width * 0.2
TxtPoint.Y = DrwPg.Height * 0.9
TxtShp.Position = TxtPoint
TxtShp.TextHorizontalAdjust = com.sun.star.drawing.TextHorizontalAdjust.LEFT
' TxtShp.TextHorizontalAdjust = com.sun.star.drawing.TextHorizontalAdjust.RIGHT
TxtShp.TextLeftDistance = 1500
TxtShp.TextRightDistance = -30000
'TxtShp.TextUpperDistance = 3000
' TxtShp.TextLowerDistance = 900
TxtShp.TextAutoGrowWidth = true
TxtShp.TextAutoGrowHeight = false
TxtShp.SetString("This is String")
Next i
This add a TextBox to every Slide, But I want to add this textbox at SlideMaster. So that I can use this Text on each slide even after I create or delete few slides. I am using Libreoffice LibreOffice 3.5.7.2
Build ID: 350m1(Build:2) on Ubuntu 12.04.
@erobiku - Thanks for the information of you macro. Here I have to put my hands up because I don’t understand macro language. I hope that someone with understanding of the macro language will continue to help you.
My approach was just what can be and how can it be done without macros.
Thanks ROSt52 for gave your valuable time.