Buscar

Filtros (2)▾

Vista

Iconos grandes, Lista

Categoría

Todos, Creatividad, Marketing, Negocios, Productividad, Programación, Educación, Personal, Investigación, Otros

Fuente

Todos, Twitter / X, Reddit, Instagram, MeiGen, prompts.chat, Wikiprompt

Subido

Cualquiera, Últimos 7 días, Últimos 30 días, Últimos 90 días, Último año

Orden

Relevancia, Más recientes, Mejor valorados, Más vistos

Tipo

Todos, Imágenes, Videos, Texto

Longitud del prompt

Todos, Corto, Medio, Largo

Tipo de prompt

Todos, One-shot (19905), Generación creativa (14394), Plantilla (13501), System prompt (1263), Flujo de trabajo (591), Persona (526), Agente (84)

Calidad

Todos, ★ Solo destacados

Valoración

Cualquiera, 2+ ★, 3+ ★, 4+ ★, 5+ ★

Acerca de Wikiprompt, Blog, Estadísticas, Creadores, API, MCP Server, Claude Skill, Términos de Uso, Política de Privacidad

minimalist 2★+Limpiar todo

4222 prompts

Escena Retro de Estilo Ghibli

Personaliza el diseño de personajes con IA usand…

Minimalist Business Logo with Two Tigers

Minimalist Line Art Logo Prompt

Modern Geometry Logo Design $Here is the VBA code for PowerPoint: ```vba Sub GenerateVBAForPowerPoint() ' This macro demonstrates how to create a new presentation and add a slide with a title and subtitle Dim pptApp As Object Dim pptPres As Object Dim pptSlide As Object ' Create a new instance of PowerPoint Set pptApp = CreateObject("PowerPoint.Application") pptApp.Visible = True ' Create a new presentation Set pptPres = pptApp.Presentations.Add ' Add a title slide (layout 1 is typically Title Slide) Set pptSlide = pptPres.Slides.Add(1, 1) ' Set the title text pptSlide.Shapes(1).TextFrame.TextRange.Text = "Hello, PowerPoint!" ' Set the subtitle text pptSlide.Shapes(2).TextFrame.TextRange.Text = "Generated with VBA" ' Optional: Save the presentation ' pptPres.SaveAs "C:\YourPath\YourPresentation.pptx" ' Clean up Set pptSlide = Nothing Set pptPres = Nothing Set pptApp = Nothing MsgBox "Presentation created successfully!" End Sub ```$ Here is the VBA code for PowerPoint: ```vba Sub…