Excel planilha vba botoes icon insere faceids limitados em planilha valores celula

Qua, 17 de Novembro de 2010 16:20 Expedito Marcondes
Imprimir

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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





 Baixe o exemplo de planilha contendo a macro acima
 Excel planilha vba botoes icon insere faceids limitados em planilha valores celula (35.84 kB)




Publicidade
Compre com segurança, garantia, ótimos preços nas lojas submarino
Informática - Submarino.com.br

Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:11