| Descricao: |
 SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere em uma outra folha de planilha os FaceID, que são icones do Excel, baseados em um intervalo de números representados pelos valores de duas células na folha de planilha, número inicial e número final, ou seja, FACEID's. de 123 à 876,
a macro lê os valores e insere números e referencias de FaceIDs na folha de Planilha.
[email protected]
Option Explicit
Sub Criar_Botoes_ID()
Dim x1 As Integer
Dim x2 As Integer
Dim i As Integer
Dim Titulo As String
Dim Ident As Integer
On Error Resume Next
x1 = Range("ini").Value
x2 = Range("fim").Value
If x2 < x1 Then x2 = x1
Call EliminarFiguras
Sheets("Botões").Select
Range("A1").Value = "ID"
Range("B1").Value = "Figura"
Range("C1").Value = "Descrição"
Range("B1").Select
Application.CommandBars.Add(Name:="temp").Visible = False
For i = x1 To x2
With Application.CommandBars("temp")
.Controls.Add Type:=msoControlButton, ID:=i, Before:=1
If .Controls.Count > 0 Then
Titulo = .Controls(1).Caption
Ident = .Controls(1).ID
If Titulo > "" Then
.Controls(1).CopyFace
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Value = Ident
ActiveCell.Offset(0, 1).Value = Titulo
ActiveSheet.PasteSpecial
.Controls(1).Delete
End If
End If
End With
Next i
Application.CommandBars("temp").Delete
Range("B1").Select
Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Publicidade
Compre com segurança, garantia, ótimos preços nas lojas submarino
|