Como reemplazo el .ScaleY en un MDIForm1? - ucToolbar

[franko1809]

Bueno el error me aparece en esta linea

Dim lIconSize As Long
lIconSize = Me.ScaleY(stdNormal.Height, vbHimetric, vbPixels)

Solo aparece si utilizo un MDIForm en lugar de un form normal ya que el MDIForm no tiene el ScaleY.
Si leen el comentario puedo reemplazar esa parte y resizar manualmente cada imagen pero no se como hacerlo, dejo todo el codigo para que lo revisen

Código:

Sub Cargar_toolbar()
    On Error GoTo error_handler
    
    Dim sDirPath As String
    
    sDirPath = App.path & "\imagenes\"
    
    With ucToolbar1
        
        ' -- Vars para las imagenes
        Dim stdNormal         As StdPicture
        Dim stdHot            As StdPicture
        Dim stdDisabled       As StdPicture
        
        ' -- cargar las imagenes
        Set stdNormal = LoadPicture(App.path & "\imagenes\normal.bmp")
        If Len(Dir(sDirPath & "hot.bmp")) Then Set stdHot = LoadPicture(sDirPath & "hot.bmp")
        If Len(Dir(sDirPath & "disabled.bmp")) Then Set stdDisabled = LoadPicture(sDirPath & "disabled.bmp")
        
        ' -- Para saber las dimensiones
        ' -- Nota : Si se quiere, Podes eliminar este bloque, y pasar el valor (tamaño de cada imagen) directamente
        ' ---------------------------------------------------------------------
        Dim lIconSize As Long
        lIconSize = Me.ScaleY(stdNormal.Height, vbHimetric, vbPixels)
        ' ---------------------------------------------------------------------
        
        ' --  Crear ToolBar
        ' ---------------------------------------------------------------------
        Call .BuildToolbar(stdNormal, lIconSize, "BBBBB| BBBB", stdDisabled, stdHot)
        ' ---------------------------------------------------------------------

    End With
    
    Set stdNormal = Nothing
    Set stdHot = Nothing
    Set stdDisabled = Nothing
    
    Exit Sub
error_handler:
MsgBox Err.Description
End Sub

[David]

Lo que hace ScaleX es convertir la unidad de medida. En este caso, lo que podrías hacer es cargar la imagen en un PictureBox y calcular el ScaleX a partir del PictureBox.

[franko1809]

gracias tio ya solucione el problema

Simplemente le puse el tamaño directamente

Call .BuildToolbar(stdNormal, 48, "BBBBB| BBBB", stdDisabled, stdHot)

En este caso las imagenes son de 48

saludos