#!/usr/bin/ruby -w
# -*- coding: utf-8 -*-

###############################################################################
#
# Example of how to use WriteExcel to write a hyperlink in a
# merged cell. There are two options write_url_range() with a standard merge
# format or merge_range().
#
# reverse('©'), September 2002, John McNamara, jmcnamara@cpan.org
#
# original written in Perl by John McNamara
# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
#

require 'rubygems'
require 'writeexcel'

# Create a new workbook and add a worksheet
workbook  = WriteExcel.new("merge3.xls")
worksheet = workbook.add_worksheet()

# Increase the cell size of the merged cells to highlight the formatting.
[1, 3,6,7].each { |row| worksheet.set_row(row, 30) }
worksheet.set_column('B:D', 20)

bp=1
###############################################################################
#
# Example 1: Merge cells containing a hyperlink using write_url_range()
# and the standard Excel 5+ merge property.
#
format1 = workbook.add_format(
                                    :center_across   => 1,
                                    :border          => 1,
                                    :underline       => 1,
                                    :color           => 'blue'
                             )

# Write the cells to be merged
worksheet.write_url_range('B2:D2', 'http://www.perl.com', format1)
worksheet.write_blank('C2', format1)
worksheet.write_blank('D2', format1)



###############################################################################
#
# Example 2: Merge cells containing a hyperlink using merge_range().
#
format2 = workbook.add_format(
                                    :border      => 1,
                                    :underline   => 1,
                                    :color       => 'blue',
                                    :align       => 'center',
                                    :valign      => 'vcenter'
                             )

# Merge 3 cells
worksheet.merge_range('B4:D4', 'http://www.perl.com', format2)


# Merge 3 cells over two rows
worksheet.merge_range('B7:D8', 'http://www.perl.com', format2)

workbook.close