Apache OpenOffice Community Forum

Code: Select all

'NEW routines

'_____________________________________________________________________________________________


Sub onChangeValue(oEvent As Variant)

 Dim newText As String		' New value of cell B1
 Dim lenText As Integer		' Length of it
 Dim oSheets As Variant		' All sheets of this workbook
 Dim oSheet1 As Variant		' Target Sheet
 Dim oSheet2 As Variant		' Source Sheet
 Dim ResultPicture As Variant
 Dim oDrawPage As Variant	' This DrawPage contains all source images
 Dim srcImage As Variant		' One of them
REM Macro responds to changes in B1 only 
	If oEvent.AbsoluteName <> "$Example.$B$1" Then Exit Sub
REM What the name of light?	
	newText = oEvent.FormulaLocal

	Select Case newText
		Case "Red"
			ShowHide_CalcImage("Red", "Show")
			ShowHide_CalcImage("Yellow", "Hide")	
			ShowHide_CalcImage("Green", "Hide")	
		Case "Yellow"
			ShowHide_CalcImage("Red", "Hide")
			ShowHide_CalcImage("Yellow", "Show")	
			ShowHide_CalcImage("Green", "Hide")
		Case "Green"
			ShowHide_CalcImage("Red", "Hide")
			ShowHide_CalcImage("Yellow", "Hide")	
			ShowHide_CalcImage("Green", "Show")
		Case else
			exit sub
	end select
End Sub
'_____________________________________________________________________________________________


Sub View_all_of_three_pictures

	ShowHide_CalcImage("Red", "Show")
	ShowHide_CalcImage("Yellow", "Show")	
	ShowHide_CalcImage("Green", "Show")	
End Sub
'_____________________________________________________________________________________________


Sub ShowHide_CalcImage(Pic_Int_Name, Visibility as string)	
'This routine vill show/hide pictures with the passed name on all of sheets of the actual document.

 Dim oDocument, oSheets, oSheet, oDP, oBitmaps, oShape as object
 Dim i, j, ShCount as integer
 
	oBitmaps = ThisComponent.createInstance( "com.sun.star.drawing.BitmapTable" )

	oDocument = ThisComponent 
	oSheets = oDocument.Sheets
	'oSheet = oSheets.getByName(Sheet_name)
	ShCount = oSheets.Count
	
	For j = 0 to ShCount-1
		oSheet = oSheets.getByIndex(j)   'get the sheets	
		oDP = oSheet.GetDrawpage()
		for i = oDP.getCount() -1 to 0 step -1
			oShape = oDP.getByIndex(i)
			if oShape.getName() = Pic_Int_Name  then
				if Visibility = "Hide" then
					oShape.Transparency = 100
				else 
					oShape.Transparency = 0
				end if
			end if
		next i
	next j	
	Thiscomponent.setModified(True) 
end sub
'_____________________________________________________________________________________________