Notifications
Clear all

Personalizar Menu no Excel

20 Posts
3 Usuários
0 Reactions
12.5 K Visualizações
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Boa tarde pessoa esta navegando pela net e me deparei com um video do
site http://excelmax.blogspot.com.br/2011/11/desenvolver-um-software-no-excel.html
do professor Ivair Ferrari, achei de mais o que dar pra fazer no excel :D
então gostaria de saber se alguem ai tem ou ja fez algo desse tipo
estive pensando em junta todas as minhas planinhas em uma so
mais queria fazer algo elegante com menu e tudo igual o parecido com o do video...
se tiver manda um alo ai obrigado

 
Postado : 23/03/2012 1:40 pm
(@arthurdiegoo)
Posts: 99
Estimable Member
 

Não possuo um modelo como do site, mais estou no desenvolvimento do mesmo.

Quanto ao menu personalizado, clique com o botão direito em cima da aba pagina inicial do excel ( ou qualquer outra ) selecione a opção: personalizar a faixa de opções.

Na tela que for aberta você poderá incluir os macros utilizados para abrir seus formulários arrastando-os para o organizador na tela da direita!

Aconseho fazer essa etapa quando sua fase de desenvolvimento se mostrar completa, para facilitar na edição!

Att.

 
Postado : 23/03/2012 1:53 pm
(@arthurdiegoo)
Posts: 99
Estimable Member
 

Lembrando que para modificar o nome de exibição e o ícone, basta escolher o seu novo botão e clicar em renomear na barra inferior.

(tutorial para excel 2007+, caso seu excel seja mais antigo, favor informar )

 
Postado : 23/03/2012 2:02 pm
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Vlw Arthur obrigado pela dica
mais gostaria mesmo e de um igual e esse do video estou pesquisando aqui ate mesmo com proprio Ivair Ferrari
gostaria de tirar o nome do excel e add o mesmo entende mais vlw por sua dica usar aqui vlw obrigado

 
Postado : 24/03/2012 9:45 am
(@arthurdiegoo)
Posts: 99
Estimable Member
 

Marcelo,

Bom Dia,

Eu entendi sua dúvida, e assim como você também quero essa personalização para dar um aspecto mais empresarial para o Formulário no excel.

Tenho uma agência de viagens, e estou terminando o sistema, se você quiser posso lhe enviar assim que acabar, mas você citou tirar o nome do excel, no próprio link que você postou ele não retirou a barra superior ( não sei se você reparou ) ele somente fez como eu lhe disse, ele tirou a visibilidade das guias padrão do excel, e trocar por atalhos para macros de nossa autoria!

Caso você queira sumir de vez com o nome do excel, você possui 2 alternativas:

1 - usar uma tela em fullscreen assim que o excel seja aberto ( a barra do windows será preservada ) - Caso deseje, tenho o código.

Ou

2 - ao iniciar o worksheet usar um application.visible=false
e frmMenu.show

onde você operaria seu sistema somente no formulário.

Para personalização você pode mudar o caption deste formulário ( para não ter nada relacionado a excel ) e mudar também o icone na systray.

Espero que a ajuda tenha sido válida.

 
Postado : 24/03/2012 9:58 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Personalizar Ribbons é um assunto da pesada :lol:

Este livro explica muito bem o assunto:..Excel 2007 power programming with VBA

Curta um pouco.
http://books.google.com.br/books?id=Hxh ... P_ltT5yQDc

Att

 
Postado : 24/03/2012 10:59 am
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Opa Arthur cara é verdade eu baixei o demo dessa sistema dele ai no video achei massa de mais cara realmente eu não havia me atentado, claro que vou querer o seu arquivo quanto teminar posta aqui pra nos vlw forte abraço ate mais
vlw alexandre como voce diz é assunto da pesada e bota pesado nisso rs rs rs
vlw

 
Postado : 25/03/2012 11:23 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom, já que estamos falando de Ribbons, vou deixar um link que fala sobre, é em Access, mas dá para aprender:

Conheça o MontaRibbons

http://www.usandoaccess.com.br/

 
Postado : 26/03/2012 12:36 pm
(@arthurdiegoo)
Posts: 99
Estimable Member
 

m_araujo, pesquisei ainda mais sobre o assunto, para melhorar minha planilha e vou tentar transmitir um pouco do que aprendi:

Me desculpe pela informação fornecida, aquele tipo de customização atinge todas as planilhas abertas pelo excel, é uma configuração do próprio programa, e não é nada interessante mudá-lo completamente sendo que você pode precisar de usar outras planilhas.

Para isso pesquisei um pouco mais, e descobri este site: http://www.rondebruin.nl/ribbon.htm

A referência bibliográfica fornecida pelo colega alexandrevba é incrivelmente completa, porém não fornece exemplos, nesse link voce consegue baixa-los!

Espero que ajude, estou aprendendo um pouco, assim que dominar o assunto posto novamente!

 
Postado : 27/03/2012 11:02 am
(@arthurdiegoo)
Posts: 99
Estimable Member
 

m_araujo :

Não sei se você ainda está frequentando este tópico, mas para todos que possam ter dúvidas vou buscar ajudar!

Primeiramente muitíssimo obrigado ao mestre alexandre pela disponibilização do material.
Como possuo um pouco de afinidade com programação html e java consegui entender bem como funciona a personalização das ribbons no excel!

Vamos ao que interessa!

A todos interessados primeiramente sugiro baixar este programa: http://openxmldeveloper.org/blog/b/open ... ditor.aspx
O que ele faz? Ele simplesmente facilita o trabalho de mudar a extensão do arquivo excel para zip e abrir uma customUI ( interface personalizada ) dentro do mesmo.

Como todos sabem o excel é um programa de compactação, assim como um arquivo zip, por isso pode ser aberto como tal, esse programa irá fazer o trabalho pra você!

Com o CustomUI editor instalado, você irá fazer o seguinte!

Clique sobre o botão do Custom UI para inicializar o programa!

Agora você irá clicar em Open e escolher o arquivo do excel que deseja formatar, ao fazê-lo, aparecerá o nome do arquivo na barra de navegação da esquerda, nesta barra você irá clicar com o botão direito sobre o nome do seu arquivo, e escolher entre as duas opções:

Office 2010 custom ui part
ou Office 2007

Após escolhê-lo, será criado um arquivo abaixo do tronco principal com o nome CustomUI14.xml para o 2010 e customUI.xml para o 2007.

( Lembre-se, FECHE O ARQUIVO no excel antes de usar o ui editor para evitar erros )

Agora vem a mágica, dentro do CustomUI você colará o seguinte código ( para obter o resultado que você queria, ocultar todas as abas existentes do excel NESTE ARQUIVO e colocar a sua aba persnoalizada:


<!-- Essa é a adaptação feita para PT-BR por arthurdiegoo para Menu personalizado no Excel Fórum PLANILHANDO.COM.BR  -->

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

  <!-- Este comando abaixo irá ocultar TODAS AS RIBBONS padrão do Excel --> 
  <ribbon startFromScratch="true">

	<!-- startFromScratch="true" irá ocultar todas os menus padrões do excel e a barra de acesso rápido.   -->
	<!-- Ele não esconderá a tela de edição contextual, por exemplo:             -->
	<!-- A tela de formatação que aparece na planilha quando você seleciona um texto.        -->
	<!-- Se você quiser retirar este recurso também, use o código abaixo:                 -->

	<contextualTabs>
		<tabSet idMso="TabSetSmartArtTools" visible="false" />
		<tabSet idMso="TabSetChartTools" visible="false" />
		<tabSet idMso="TabSetDrawingTools" visible="false" />
		<tabSet idMso="TabSetPictureTools" visible="false" />
		<tabSet idMso="TabSetPivotTableTools" visible="false" />
		<tabSet idMso="TabSetHeaderAndFooterTools" visible="false" />
		<tabSet idMso="TabSetTableToolsExcel" visible="false" />
		<tabSet idMso="TabSetPivotChartTools" visible="false" />
		<tabSet idMso="TabSetInkTools" visible="false" />
	</contextualTabs>


	<!-- O código abaixo irá adicionar uma nova aba no menu, com seus controles personalizados-->
	<!-- No exemplo serão adicionados 3 grupos, na aba 'Minha Aba' -->
	<!-- Na ultima aba haverá um menu com 5 opções-->

    <tabs>
      <tab id="MyCustomTab" label="Minha Aba" >
				
	<group id="customGroup1" label="Group 1">
          <button id="customButton1" label="Caption 1" size="normal" onAction="Macro1" imageMso="DirectRepliesTo" />		
          <button id="customButton2" label="Caption 2" size="normal" onAction="Macro2" imageMso="AccountMenu" />
          <button id="customButton3" label="Caption 3" size="normal" onAction="Macro3" imageMso="RegionLayoutMenu" />
        </group>

        <group id="customGroup2" label="Group 2">
          <button id="customButton4" label="Caption 4" size="normal" onAction="Macro4" imageMso="TextAlignGallery" />
          <button id="customButton5" label="Caption 5" size="normal" onAction="Macro5" imageMso="PrintPreviewClose" />
          <button id="customButton6" label="Caption 6" size="normal" onAction="Macro6" imageMso="PrintPreviewShrinkOnePage" />
          <separator id="MySeparator1" />		
          <button id="customButton7" label="Caption 7" size="large" onAction="Macro7" imageMso="ReviewPreviousComment" />
        </group>

        <group id="customGroup3" label="Group 3">
          <menu id="MyDropdownMenu" label="My Menu" size="large" imageMso="TextAlignGallery"  >
            <button id="customButton8" label="Caption 8"  onAction="Macro8" imageMso="TextAlignGallery" />
            <button id="customButton9" label="Caption 9"  onAction="Macro9" imageMso="TextAlignGallery" />
            <button id="customButton10" label="Caption 10"  onAction="Macro10" imageMso="TextAlignGallery" />
            <button id="customButton11" label="Caption 11"  onAction="Macro11" imageMso="TextAlignGallery" />
            <button id="customButton12" label="Caption 12"  onAction="Macro12" imageMso="TextAlignGallery" />
          </menu>
        </group>

      </tab>
    </tabs>


  </ribbon>

</customUI>

Este código simplificado básicamente criará um novo menu, e permitirá que você edite de acordo com sua demanda...

A sintaxe é muito simples, só vale lembrar que os comandos serão ativados por macros, então no seu arquivo VBA coloque os macros com o nome dos módulos.

Por exemplo, se deseja criar um botão no menu que abra o formulário frmCadastro, ficaria da seguinte maneira:

<button id="customButton1" label="Cadastro" size="large" onAction="Macro1" imageMso="A imagem que você quiser aqui" />
Onde no Macro1 eu teria:

frmCadastro.show

.

Espero que tenha dado para entender, sei que não sou nenhum mestre, mais acho que pode ser útil para todos os membros do fórum personalizarem mais ainda suas planilhas!

 
Postado : 27/03/2012 3:36 pm
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Arhur meu caro parabens hem muito showw obrigado ao Alexandre tambem muito boa cara
bom vou treinar agora rs rs vlw ´pessoal e boa noite..

 
Postado : 28/03/2012 4:17 pm
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Arthur Bom dia cara nao sei onde eu errei hem
as imagens nao fica algumas aparecem e outras não

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

	<!--
		*********************************************************
		***********
	-->
	<commands >
		<command 
			enabled="false"
			idMso="ApplicationOptionsDialog"/>
		<command 
			enabled="true"
			idMso="FileExit"/>
		<!--<command
			enabled="false"			
			idMso="Bold"/>-->
	</commands >
	<ribbon  startFromScratch="true" >
		<tabs >
			<tab 
				idMso="TabHome"
				visible="false"/>
                  <tab
				idMso="TabDeveloper"
				visible="true"/>
			<tab 
				idMso="TabInsert"
				visible="false"/>
			<tab 
				idMso="TabPageLayoutExcel"
				visible="false"/>
			<tab 
				idMso="TabFormulas"
				visible="false"/>
			<tab 
				idMso="TabData"
				visible="false"/>
			<tab 
				idMso="TabReview"
				visible="false"/>
			<tab 
				idMso="TabView"
				visible="false"/>
			<tab 
				idMso="TabAddIns"
				visible="true"/>
			<tab 
				idMso="TabPrintPreview"
				visible="true"/>
			<tab
				idMso="QuickAccessToolbar"
				visible="true"/> 
	
 			<tab 	
				id="MyCustomTab"
				label="Menu Principal"
				insertBeforeMso="TabHome">
				<group 
					id="GrupoA"
					label="Cadastros">
					<button 
						id="customButton1"
						imageMso="Openv2"
						label="Soja"
						screentip="Soja"
						size="large"
		  				supertip="Entrada de Soja no Armazem "
						onAction="Macro1"/>
					<separator  id="Separator1" />
					<button 
						id="customButton2"
						imageMso="Open"
						label="Milho"
                                    screentip="Milho"
						size="large"
		  				supertip="Entreda de Milho no Armazem"
						onAction="Macro2"/>
					<separator  id="Separator2" />						
					<button 
						id="customButton51"
						imageMso="Touch"
						label="Empresa"
						size="large"
		  				supertip="Dados da Empresa"
						onAction="Macro5_1"/>
					<separator  id="Separator3" />
				</group >

				<group 
					id="GrupoC"
					label="Diversos">
					<button 
						id="customButton12"
						imageMso="New_x0020_file"
						label="Logo"
						size="large"
		  				supertip="Altera logo"
						onAction="Macro12"/>
					<separator  id="Separator4" />
	                         <button 
                                	id="customButton2_1"
						imageMso="Export"
						label="Exportar Importar"
						size="large"
		  				supertip="Exportar / Importar"
						onAction="Macro2_1"/>
	                         <button 
						idMso="Calculator"
						imageMso="Calculator"
						label="Calculadora"
						screentip="Calculadora"
						showImage="true"
						showLabel="true"
  						supertip="Calculadora do Windows."
						size="large"/>
					<button 
						id="customButton8"
						imageMso="OutlookGlobe"
						label="Site"
						size="large"
  						supertip="Nosso Site: www.planilhando.com"
						onAction="Macro8"/>
					<button 
						id="customButton9"
						imageMso="Help"
						label="Sobre"
						size="large"
  						supertip="INFORMAÇÕES"
						onAction="Macro9"/>
					<separator  id="Separator5" />
					<button 
						id="customButton10"
						imageMso="Undo"
						label="Voltar"
						screentip="Voltar para tela Principal"
						size="large"                                    
						onAction="Macro10"/>
					<separator  id="Separator7" />
					<button 
						id="customButton11"
						imageMso="Exit1"
						label="Fechar Sistema"
						screentip="Fechar Sistema"
                                    showImage="true"
						size="large"
						onAction="Macro11"/>
 					<buttonGroup />
				</group >

			</tab >

			<!-- <tab id="customTab"
			     label="Análises"
			     insertAfterMso="MyCustomTab">
				<group 
					id="GrupoD"
					label="Ferramentas de Análises">
			     		<button 
						id="customButton13"
						imageMso="TripaneViewMode"
						label="Relatório"
						screentip="Relatórios"
						size="large"
						onAction="Macro13"/>
				</group >
			</tab >

			<tab id="customTab2"
			     label="Ferramentas"
			     insertAfterMso="CustomTab">
				<group 
					id="GrupoE"
					label="Ferramentas Diversas">
			     		<button 
						id="customButton14"
						imageMso="TripaneViewMode"
						label="Relatório"
						screentip="Relatórios"
						size="large"
						onAction="Macro14"/>
				</group >
			</tab > -->

    		</tabs>

		<officeMenu >
			<button 
				idMso="FileNew"
				visible="true"/>
			<button 
				idMso="FileOpen"
				visible="true"/>
			<button 
				idMso="FileSave"
				visible="true"/>
			<!--<button 
				idMso="FileSaveAs"
				visible="true"/>-->
			<button 
				idMso="FilePrintPreview"
				visible="true"/>
			<button 
				idMso="FilePrint"
				visible="true"/>
			<button 
				idMso="FileClose"
				visible="true"/>
			<!--  <button 
				idMso="FileExit"
				imageMso="Delete"
				visible="true"/> -->
		</officeMenu >

		<contextualTabs>
			<tabSet idMso="TabSetSmartArtTools" visible="false" />
			<tabSet idMso="TabSetChartTools" visible="false" />
			<tabSet idMso="TabSetDrawingTools" visible="false" />
			<tabSet idMso="TabSetPictureTools" visible="false" />
			<tabSet idMso="TabSetPivotTableTools" visible="true" />
			<tabSet idMso="TabSetHeaderAndFooterTools" visible="false" />
			<tabSet idMso="TabSetTableToolsExcel" visible="true" />
			<tabSet idMso="TabSetPivotChartTools" visible="false" />
			<tabSet idMso="TabSetInkTools" visible="true" />
		</contextualTabs>
 
	     	<qat> 
	         <sharedControls> 
 	            <!--<button idMso="Cut" />
           		<button idMso="Copy" />
	            <button idMso="Paste" />-->
			<button idMso="FileSave"/>
			<button idMso="FileOpen"/>
			<button idMso="FileNew"/>
			<!--<control idMso="Undo"/>
			<control idMso="Redo"/>
			<button idMso="Repeat" /> -->
			<button idMso="Print" />
			<button idMso="FilePrintPreview" />
			<!--<control idMso="Customize" /> -->
	         </sharedControls> 
	      </qat>

  	</ribbon>

</customUI>

como lhe diz as imagens nao mostra todas nao sei pq tem algo haver com formato da imagen, pesquisei aqui e acho que não
se tiver alguma ideia manda ver ai vlw

 
Postado : 29/03/2012 6:54 am
(@arthurdiegoo)
Posts: 99
Estimable Member
 

Marcelo, para customização de ribbons é importantíssimo 2 coisas.

Primeiro, qual sua versão do excel? e Segundo, qual customUI você está usando...

Se as imagens foram upadas do seu computador, lembre-se de upar no próprio custom UI editor, e o nome utilizado para chamar a imagem será imagem sem a extensão, por exemplo:

josias.png = "josias"

Outro fator é o seguinte, o excel aceita melhor imagens no formato .png , tive alguns problemas semelhantes quando usei outros formatos, tente testar esses dados primeiro, e dê o retorno =D

 
Postado : 29/03/2012 7:43 am
(@m_araujo)
Posts: 159
Estimable Member
Topic starter
 

Arthur meu cara eu uso o Office 2007 e eu fiz exatamente como tu me passou ai
criei o custom upei as imagens para dentor do custom criado
add as imagems com formato PNG por exemplo

					<button 
						id="customButton12"
						imageMso="New_x0020_file" <!-- Essa imagem aqui esta em formato PNG --->
						label="Logo"
						size="large"
		  				supertip="Altera logo"
						onAction="Macro12"/>
					<separator  id="Separator4" />

e continua mostrando algumas e outras não
obrigado

 
Postado : 29/03/2012 8:02 am
(@arthurdiegoo)
Posts: 99
Estimable Member
 

m_araujo, certinho, vamos tentar fazer da seguinte maneira, o office possui uma database de mais de 5.000 logos já adaptadas para uso nas ribbons, o arquivo que estou enviando em anexo não é de minha autoria, mas não lembro direito a fonte, nele você possuirá uma aba do excel escrito Control Image, nela você pode navegar pelas imagens todas, e ao clicar em cima da mesma, já copia o nome dela automaticamente, basta colocar no imageMso.

Pelo que entendi do seu problema, pode ser uma questão de contagem de pixels. Nunca vi o problema no excel, mas como já trabalhei como designer gráfico já vi esse problema em diversos programas, básicamente é o seguinte, o excel libera uma banda de pixels que ele consegue carregar no inicio, justamente para não carregar demais o programa, se as imagens que você estiver usando, não possuirem o fundo transparente, ou com uma configuração muito detalhada, pode entrar em colapso e o programa simplesmente não carrega a imagem.

Faz o seguinte, vou te passar o arquivo por anexo, mas você poderia zipar uma imagem que está aparecendo no excel e todas que não estão aparecendo? Vou conferir para você...

PS: Tentei anexar o arquivo aqui no forum e não deu pela extensao xlam, estou mandando o link do sendspace:

http://www.sendspace.com/file/ed4jr2

 
Postado : 29/03/2012 8:14 am
Página 1 / 2