diff --git a/modules/Visualization/Visualization.R b/modules/Visualization/Visualization.R
index 351031c05f4048f758793321f72a572826ec826a..7de55fb334fc1defe2de6cfc4a13a775ab016534 100644
--- a/modules/Visualization/Visualization.R
+++ b/modules/Visualization/Visualization.R
@@ -5,6 +5,8 @@ source("modules/Visualization/tmp/PlotCombinedMap.R")
 ## TODO: Add the possibility to read the data directly from netCDF
 ## TODO: Adapt to multi-model case
 ## TODO: Add param 'raw'?
+## TODO: Reduce colorbar size and increase colorbar label size
+## Param: bar_label_scale and ????
 
 plot_data <- function(recipe,
 		      data,
@@ -179,7 +181,10 @@ plot_skill_metrics <- function(recipe, archive, data_cube, skill_metrics,
 	       col_inf = col2[1],
 	       col_sup = col2[length(col2)],
                fileout = outfile,
-               bar_label_digits = 3)
+               bar_label_digits = 3,
+	       bar_extra_margin = rep(0.9, 4),
+	       bar_label_scale = 1.5,
+	       axes_label_scale = 1.3)
     )
     }    
   }
@@ -256,7 +261,10 @@ plot_ensemble_mean <- function(recipe, archive, fcst, outdir) {
 	       cols = col2,
 	       brks = brks,
 	       fileout = outfile,
-               bar_label_digits = 4)
+	       bar_label_digits = 4,
+	       bar_extra_margin = rep(0.7, 4),
+	       bar_label_scale = 1.5,
+	       axes_label_scale = 1.3)
   }
 
   info(recipe$Run$logger,
@@ -339,6 +347,9 @@ plot_most_likely_terciles <- function(recipe, archive,
 	       titles = titles,
 	       fileout = outfile,
 	       bar_label_digits = 2,
+	       bar_scale = rep(0.7, 4),
+	       bar_label_scale = 1.2,
+	       axes_label_scale = 1.3,
 	       triangle_ends = c(F, F), width = 11, height = 8)
     )
   }