autofit: preliminary work for setting max autofit width

Author: jmcnamara

lib/Excel/Writer/XLSX/Worksheet.pm

@@ -774,8 +774,16 @@ sub set_column_pixels {
 #
 sub autofit {
     my $self      = shift;
+    my $max_width = shift || 255.0;
     my %col_width = ();
 
+    # Convert the autofit maximum pixel width to a column/character width, but
+    # limit it to the Excel max limit.
+    $max_width = _pixels_to_width($max_width);
+    if ( $max_width > 255.0 ) {
+        $max_width = 255.0;
+    }
+
     # Create a reverse lookup for the share strings table so we can convert
     # the string id back to the original string.
     my @strings;
@@ -919,9 +927,9 @@ sub autofit {
         # additional padding of 7 pixels, like Excel.
         my $width = _pixels_to_width( $pixel_width + 7 );
 
-        # The max column character width in Excel is 255.
-        if ( $width > 255.0 ) {
-            $width = 255.0;
+        # Limit the width to the maximum user or Excel value.
+        if ( $width > $max_width ) {
+            $width = $max_width;
         }
 
         # Add the width to an existing col info structure or add a new one.

t/regression/autofit14.t

@@ -0,0 +1,71 @@
+###############################################################################
+#
+# Tests the output of Excel::Writer::XLSX against Excel generated files.
+#
+# Copyright 2000-2024, John McNamara, jmcnamara@cpan.org
+#
+# SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
+#
+
+use lib 't/lib';
+use TestFunctions qw(_compare_xlsx_files _is_deep_diff);
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+###############################################################################
+#
+# Tests setup.
+#
+my $filename     = 'autofit14.xlsx';
+my $dir          = 't/regression/';
+my $got_filename = $dir . "ewx_$filename";
+my $exp_filename = $dir . 'xlsx_files/' . $filename;
+
+my $ignore_members  = [];
+my $ignore_elements = {};
+
+
+###############################################################################
+#
+# Test the creation of a simple Excel::Writer::XLSX file.
+#
+use Excel::Writer::XLSX;
+
+my $workbook  = Excel::Writer::XLSX->new( $got_filename );
+my $worksheet = $workbook->add_worksheet();
+
+$worksheet->write_string( 0, 0, "This is some long text to test autofit" );
+
+$worksheet->autofit(200);
+
+$workbook->close();
+
+
+###############################################################################
+#
+# Compare the generated and existing Excel files.
+#
+
+my ( $got, $expected, $caption ) = _compare_xlsx_files(
+
+    $got_filename,
+    $exp_filename,
+    $ignore_members,
+    $ignore_elements,
+);
+
+_is_deep_diff( $got, $expected, $caption );
+
+
+###############################################################################
+#
+# Cleanup.
+#
+unlink $got_filename;
+
+__END__
+
+
+