Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Hola, tengo un juego de Poker que funciona perfectamente.
Pero lo copio a un Mac y el juego lo puedo modificar a mi gusto pero las imágenes del cubilete (como si se moviera) no funciona, solo las imágenes,
que parte del código debería modificar ? envío parte del programa, la macro en cuestión.
Sub Tirar()
Dim COLUMNAS As String
Dim DADOS As String,
DADO As Integer
Dim y As Integer, d As Integer '--
Randomize Range("A1").Select
COLUMNAS = "FGHGHGI" 'Columna de la imagen del cubilete
DADOS = "JKLMNO" 'Columna de la imagen de los dados Visualizar
False For y = 1 To Len(COLUMNAS)
ActiveSheet.Shapes.Range("CUBILETE").Select
Selection.Formula = "=" & "'.'!" & Mid(COLUMNAS, y, 1) & 4
ActiveCell.Select If y = Len(COLUMNAS) Then
Application.ScreenUpdating = False
Visualizar True 'uf = Range("E" & Rows.Count).End(xlUp).Row + 1 'Range("E" & uf) = uf - 6
For d = 1 To 5
DADO = Int((6 * Rnd) + 1)
ActiveSheet.Shapes.Range("DADO" & d).Select
Selection.Formula = "=" & "'.'!" & Mid(DADOS, DADO, 1) & 8 'Range("E" & uf).Offset(0, DADO) = Range("E" & uf).Offset(0, DADO) + 1
Next 'Range("L" & uf) = Range("F" & uf) * 6 _ + Range("G" & uf) * 5 _ + Range("H" & uf) * 4 _ + Range("I" & uf) * 3 _ + Range("J" & uf) * 2 _ + Range("K" & uf)
End If
Application.Wait (Now + TimeValue("00:00:01"))
Next ActiveCell.Select Application.ScreenUpdating = True
End Sub