Moderatori: Anthony47, Flash30005
Dim HW As Integer
HW = 100 'Dimensione in pixel
Columns(1).ColumnWidth = HW / 5
Columns(1).ColumnWidth = HW / Columns(1).Width * Columns(1).ColumnWidth
Columns(1).ColumnWidth = HW / Columns(1).Width * Columns(1).ColumnWidth
Columns(1).ColumnWidth = HW / Columns(1).Width * Columns(1).ColumnWidth
Rows(1).RowHeight = HW
Probabilmente hai uno schermo in 4kFunziona ma mi mette il valore DOPPIO in pixel
Sub hSet()
Dim TW As Integer, W5 As Integer, W6 As Integer, tCW As Double
'
'
TW = 200 'Target Width pixel
'
Columns(1).ColumnWidth = 5
W5 = Columns(1).Width
Columns(1).ColumnWidth = 6
W6 = Columns(1).Width
tCW = (TW - W5) / (W6 - W5) + 5 'Target ColumnWidth
Columns(1).ColumnWidth = tCW
End Sub
Probabilmente hai uno schermo in 4k
Sub hSet()
Dim TW As Integer, W5 As Integer, W6 As Integer, tCW As Double
TW = 200 'Target Width pixel
Columns(1).ColumnWidth = 5 ' Viene impostata la larghezza a 5 e 62 Pixel
W5 = Columns(1).Width
Columns(1).ColumnWidth = 6 ' Viene impostata la larghezza a 6 e 73 Pixel
W6 = Columns(1).Width
tCW = (TW - W5) / (W6 - W5) + 5 'Target ColumnWidth
Columns(1).ColumnWidth = tCW ' viene impostata la larghezza a 38,82 e 434 Pixel
End Sub
Sub Celle_Quadrate_Anthony()
Dim HW As Integer
HW = 50 'NON sono Pixel ma altezza/larghezza riga
Columns(1).ColumnWidth = HW / 5
Columns(1).ColumnWidth = HW / Columns(1).Width * Columns(1).ColumnWidth
Columns(1).ColumnWidth = HW / Columns(1).Width * Columns(1).ColumnWidth
Columns(1).ColumnWidth = HW / Columns(1).Width * Columns(1).ColumnWidth
Rows(1).RowHeight = HW
End Sub
Torna a Applicazioni Office Windows
Trasformare celle con formattazioni in html Autore: servicedynergy |
Forum: Applicazioni Office Windows Risposte: 5 |
inserisci valore in celle a seguito di condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 10 |
Codice per popolare celle con condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 3 |
Input box range di celle di destinazione variabile Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 17 |
Visitano il forum: Nessuno e 27 ospiti