Ask Your Question
0

Add a textbox to slide master [closed]

asked 2014-01-30 11:23:09 +0200

erobiku gravatar image

updated 2015-08-27 13:14:50 +0200

Alex Kemp gravatar image

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.

edit retag flag offensive reopen merge delete

Closed for the following reason the question is answered, right answer was accepted by Alex Kemp
close date 2016-02-19 05:33:50.517927

1 Answer

Sort by » oldest newest most voted
0

answered 2014-01-30 14:45:01 +0200

ROSt52 gravatar image

@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

edit flag offensive delete link more

Comments

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 gravatar imageerobiku ( 2014-01-31 05:32:14 +0200 )edit

@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

<footer> 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.</date>

Hope it helps or is food for thoughts.

</footer>
ROSt52 gravatar imageROSt52 ( 2014-01-31 15:16:43 +0200 )edit

@ 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 ...(more)

erobiku gravatar imageerobiku ( 2014-02-03 04:50:19 +0200 )edit

@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.

ROSt52 gravatar imageROSt52 ( 2014-02-03 07:12:33 +0200 )edit

Thanks ROSt52 for gave your valuable time.

erobiku gravatar imageerobiku ( 2014-02-03 14:38:53 +0200 )edit

Question Tools

1 follower

Stats

Asked: 2014-01-30 11:23:09 +0200

Seen: 1,604 times

Last updated: Jan 31 '14