Moderatori: Anthony47, Flash30005
Sub CenterPictures()
With ActiveSheet.Shapes("IMMAGINE 3")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
End Sub
Sub InserisciImg()
Dim cPic As Shape, FullNome As String
Dim cAdr As String
'
'Chiedi il file da gestire:
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Pictures", "*.jpg; *.png", 1 'Filtro per estensione
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Nessuna voce selezionata, procedura annullata")
Exit Sub
End If
FullNome = .SelectedItems(1) 'Directory e Nome del file selezionato
End With
'
'Inserisci Immagine:
cAdr = ActiveCell.Address(0, 0)
Set cPic = ActiveSheet.Shapes.AddPicture(FullNome, False, True, ActiveCell.Left, ActiveCell.Top, True, True)
cPic.Name = "Immagine_" & cAdr
'
'Posizionala:
With cPic
.Left = Range(cAdr).MergeArea.Left + Range(cAdr).MergeArea.Width / 2 - .Width / 2
.Top = Range(cAdr).MergeArea.Top + Range(cAdr).MergeArea.Height / 2 - .Height / 2
.OnAction = "Centra"
End With
End Sub
Sub Centra()
Dim ShN As String, cAdr As String, zzz As Object
'
ShN = Parent.Caller
cAdr = Split(ShN, "_", , vbTextCompare)(1)
'
With ActiveSheet.Shapes(ShN)
.Left = Range(cAdr).MergeArea.Left + Range(cAdr).MergeArea.Width / 2 - .Width / 2
.Top = Range(cAdr).MergeArea.Top + Range(cAdr).MergeArea.Height / 2 - .Height / 2
End With
End Sub
[...] la quale centra automaticamente lo scritto spostando le colonne
Puoi pubblicare almeno una Immagine di come viene posizionata l’immagine quando ci si clicca sopra? Si deve vedere anche l’area su cui dovrebbe essere centratacredo che non ci sia soluzione a questo, ho provato ma non centra bene
Torna a Applicazioni Office Windows
Importare immagini a seconda del testo in una cella Autore: Paolo67met |
Forum: Applicazioni Office Windows Risposte: 4 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Visualizzatore immagini W 10 problemi Autore: mastino46 |
Forum: Audio/Video e masterizzazione Risposte: 16 |
Visitano il forum: Nessuno e 36 ospiti